<%Checklogin("信息管理")%> 管理区域
<% Act = Request.QueryString("act") If act = "save" Then Set Rs = Server.CreateObject("ADODB.RecordSet") isedit = False id = Request.Form("id") If id<>"" And IsNumeric(id) Then isedit = True ch_name=TextEnCode(Request.Form("ch_name")) If isedit Then Rs.Open "Select * From qudao Where id="& id,Conn,1,3 If Rs.Bof And Rs.Eof Then Rs.AddNew End If Rs("ch_name")=ch_name Rs.Update:Rs.Close:Set Rs=Nothing:Conn.Close:Set Conn=Nothing Page = Request.QueryString("Page") Keys=Server.UrlEnCode(Request.QueryString("Keys")) Ord=Server.UrlEnCode(Request.QueryString("Ord")) Response.Redirect "?keys="&Keys&"&Ord="&Ord&"&Page="&Page Else Rs.Open "qudao",Conn,1,3 Rs.AddNew Rs("ch_name")=ch_name Rs.Update:Rs.Close:Set Rs=Nothing:Conn.Close:Set Conn=Nothing Response.Redirect "?" End If Conn.Close:Set Conn=Nothing Response.End End If 'end save If Act = "add" Or Act = "edit" Then id = Request.QueryString("id") isedit = False If id<>"" And IsNumeric(id) Then isedit=True If isedit Then Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.Open "Select * From qudao Where id="&id,Conn,1,1 If Not Rs.Bof And Not Rs.Eof Then ch_name=TextUnCode(Rs("ch_name")) Else isedit = False End If Rs.Close:Set Rs=Nothing End If Page = Request.QueryString("Page") Keys=Server.UrlEnCode(Request.QueryString("Keys")) Ord=Server.UrlEnCode(Request.QueryString("Ord")) hrefstr = "?keys="&Keys&"&Ord="&Ord&"&Page="&Page %>
来源
<% Response.End End If 'End add If Act="postchk" Then Keys = Server.UrlEnCode(Request.QueryString("Keys")) Ord = Server.UrlEnCode(Request.QueryString("Ord")) Page = Request.QueryString("Page") chkact = Request.Form("chkact") SqlStr = "" For i = 1 To Request.Form("chkbox").Count If SqlStr<>"" Then SqlStr = SqlStr & " Or id="&Request.Form("chkbox")(i) Else SqlStr = " Where id="&Request.Form("chkbox")(i) End If Next SqlStr = "Delete From qudao"&SqlStr Conn.Execute(SqlStr):Conn.Close:Set Conn=Nothing Response.Redirect "?Keys="&Keys&"&Ord="&Ord&"&Page="&Page Response.End End If 'End postchk Keys=Request.QueryString("Keys") Keyscode=TextEnCode(Keys) Ord=Request.QueryString("Ord") Page = Request.QueryString("Page") If Ord<>"" Then OrdStr=Ord&"," Else OrdStr="" End If Set Rs=Server.CreateObject("ADODB.RecordSet") Rs.Open "Select * From qudao Where ch_name like '%"&Keyscode&"%' Order By id Desc",Conn,1,1 Keys=Server.UrlEnCode(Keys) Ord=Server.UrlEnCode(Ord) hrefstr = "?keys="&Keys %>
<% If Not Rs.Bof And Not Rs.Eof Then Rs.PageSize = 10 If Page = "" Then Page = 1 If Page = "end" Then Page = Rs.PageCount If Not IsNumeric(Page) Or Page < 1 Then Page = 1 Page = Cint(Page) If Page > Rs.PageCount Then Page = Rs.PageCount Rs.AbsolutePage = Page TempNum = Rs.PageSize * (Page - 1) Set Rs1=Server.CreateObject("ADODB.RecordSet") For i=1 To Rs.PageSize If Rs.Bof Or Rs.Eof Then Exit For TempNum=TempNum+1:classid=Rs(1) %> <% Rs.MoveNext Next Else If Keys="" Then %> <% Else %> <% End If End If %>
序号 渠道来源 操作
<%=TempNum%> <%=Rs("ch_name")%> 修改
Sorry，当前暂无信息
Sorry，没有找到“<%=Keyscode%>”相关的信息，点击返回
<% If Rs.PageCount > 1 Then PageName="?Keys="&Keys&"&Ord="&Ord&"&" Pagelen=3 If Page>1 Then Response.Write "首页" Response.Write "上一页" End If If Pagelen*2+1 >= Rs.PageCount Then StartPage=1:EndPage=Rs.PageCount Else If Page<=Pagelen+1 Then StartPage=1 EndPage=Pagelen*2+1 Else StartPage=Page-Pagelen EndPage=Page+Pagelen End If If Page+Pagelen>Rs.PageCount Then StartPage=Rs.PageCount-Pagelen*2:EndPage=Rs.PageCount End If For i = StartPage To EndPage If i = Page Then Response.Write ""&i&"" Else Response.Write ""&i&"" End If Next If Page Pagelen Then Response.Write "..."&Rs.PageCount&"" Response.Write "下一页" Response.Write "尾页" End If Response.Write "" End If %>
" onFocus="if(this.value == '<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>'){this.value='';}" onBlur="if(this.value == ''){this.value='<%If Keyscode="" Then Response.Write "请输入搜索关键词" Else Response.Write Keyscode%>';}" onKeyDown="if(event.keyCode==13){location.href='?Keys='+escape(document.getElementById('keys').value)}" />
<%Rs.Close:Set Rs=Nothing:Set Rs1=Nothing:Conn.Close:Set Conn=Nothing%>