admin_cslist.asp

电子商城代码

<!--#include file="conn.asp"-->
<%
admintop()
id=request("id")
gjc=Safereplace(trim(request("gjc")))
gjc_lan1=Safereplace(trim(request("gjc_lan1")))
gjc1=Safereplace(trim(request("gjc1")))
cs=request("cs")
if cs="" then cs=1
	Dim admin_flag
	admin_flag=",2,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
Select Case Request("action")
	Case "addgjc" : addgjc()
	Case "gjcadd" : gjcadd()
	Case "del" : del()
	Case "modigjc" : modigjc()
	Case "gjcmodi" : gjcmodi()
	Case Else
		list()
        End Select
        end if
sub del
id=request("id")
if id="" then 
  response.write"<SCRIPT language=JavaScript>alert('请选择您要删除的条目！');javascript:history.go(-1)</SCRIPT>"
  response.end
end if
conn.execute "delete from [search] where id in ("&id&") "
response.redirect "admin_cslist.asp"
end sub

sub modigjc
if gjc1<>gjc then
        set rs=server.createobject("ADODB.Recordset")
sql="select * from [search] where gjc='"&gjc&"' order by id desc"
rs.open sql, conn, 1, 1
if not(rs.eof or rs.bof)then
        response.write"<SCRIPT language=JavaScript>alert('对不起，您所修改的关键字已经存在, 请核实！');javascript:history.go(-1)</SCRIPT>"
rs.close
set rs=nothing
end if
end If
If IsNumeric(cs)=False Then cs="1"
conn.execute "update [search] set gjc='"&gjc&"',cs='"&cs&"' where id=" & id
url="admin_cslist.asp"
response.write "<br><br><br><center><font size=-1>已经成功修改,本页2秒钟后返回.</font></center>"
response.write "<meta http-equiv=refresh content=2;url=" & url & ">"
response.end
end sub

sub addgjc
'开始检测是否重复登陆
set rs=server.createobject("ADODB.Recordset")
sql="select * from [search] where gjc='"&gjc&"' order by cs desc"
rs.open sql, conn, 1, 1
if not(rs.eof or rs.bof)then
        response.write"<SCRIPT language=JavaScript>alert('对不起，您所添加的关键词已经存在, 请核实！');"
response.write"javascript:history.go(-1)</SCRIPT>"
rs.close
set rs=nothing
response.end
end if
conn.execute "insert into [search] (gjc,cs)values('"&gjc&"', '"&cs&"')"
response.write "<script language='javascript'>alert('关键词添加成功！');window.document.location.href='admin_cslist.asp';</script>" 
Response.End
end sub
%>
<script language="JavaScript">
function Checkmyform()
{ 
        if(document.myform.gjc.value.length == 0)
        {
                alert("请输入关键词.");
                document.myform.gjc.focus();
                return false;
        }
        if(document.myform.cs.value.length == 0)
        {
                alert("请输入数字.");
                document.myform.cs.focus();
                return false;
        }
        return true;
}
</script>
<%sub gjcadd%>
<table width="98%" border="0" cellspacing="1" cellpadding="0" vspace="0" hspace="0" bgcolor="#183789" align="center">
  <tr>
  <td>
   <table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="100%">
  <tr>
<td height="27" class="classtop" align="center" colspan="2">搜索关键词添加</td>
</tr>
<form action="?action=addgjc" method="post" name="myform" onSubmit="return Checkmyform();">
<tr bgcolor="#E8F1FF">
<td width="25%">  添加关键词
</td>
<td width="75%" >
<input type="text" name="gjc" size="26" class="form">
</td>
</tr>
<tr bgcolor="#E8F1FF">
<td width="25%">  排序（数字越大排列越前）
</td>
<td width="75%" >
<input type="text" name="cs" size="10" value="1" class="form">
</td>
</tr>
<tr class="classfooter">
<td height="30" colspan="2" align="center">
<input type="submit" name="Submit" value="添 加" class="button">
&nbsp; &nbsp;
<input type="reset" name="Submit" value="重 填" class="button">
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<%end sub%>
<%sub list%>
<table width="98%" border="0" cellspacing="1" cellpadding="0" vspace="0" hspace="0" bgcolor="#183789" align="center">
  <tr>
  <td>
   <table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="100%">
  <tr>
  <td height="27" class="classtop" align="center" colspan="5">网站搜索关键词管理</td>
</tr>
<form name=form action="?action=del" method=post>
<%
page=clng(request("page"))
sql="select * from [search] order by cs desc"
  Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 1, 1
if rs.eof and rs.bof then
response.Write("<tr class=classtd><td height=25 colspan=5 align=center>暂时没有记录</td></tr>")
else
%>
<tr bgcolor="#E8F1FF" align="center">
<td height="22" width="5%">ID</td>
<td width="40%">关键词</td>
<td width="15%">排序</td>
<td>操作</td>
<td>选择</td>
</tr>
<%
rs.PageSize=50
if page=0 then page=1
        pages=rs.pagecount
if page > pages then page=pages
        rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
<tr bgcolor="#E8F1FF" align="center">
<td height="22"><%=rs("id")%></td>
<td><%=rs("gjc")%></td>
<td><%=rs("cs")%></td>
<td><a href="?action=gjcmodi&id=<%=rs("id")%>">编辑</a>
</td>
<td> <input name="id" type="checkbox" value="<%=rs("id")%>"></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
        next
%>
<tr class="classfooter">
<td width="35%" height="25" align="center">
<input type="button" name="Submit2" value="添加关键词" onClick="location.href='?action=gjcadd'" class="button">
<input type="submit" name="Submit" value="删除" onClick="return confirm('您确定要这样操作吗？')" class="button">
<input type=button value="全部选定" onClick="this.value=check(this.form.id)" class="button"></td></form>
<form method=Post action="admin_cslist.asp"><td colspan="4">
<%if Page<2 then
response.write "首页 上一页&nbsp;"
else
       response.write "<a href=admin_cslist.asp?page=1><font color=white>首页</font></a>&nbsp;"
response.write "<a href=admin_cslist.asp?page=" & Page-1 & "><font color=white>上一页</font></a>&nbsp;"
end if
if rs.pagecount-page<1 then
        response.write "下一页 尾页"
else
        response.write "<a href=admin_cslist.asp?page=" &(page+1)& ">"
response.write "<font color=white>下一页</font></a> <a href=admin_cslist.asp?page="&rs.pagecount&"><font color=white>尾页</font></a>"
end if
response.write "&nbsp;页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class='form' value="&page&">"
response.write " <input class='button' type='submit' value='跳转'>"
%>
</td>
<%
end if
rs.close
set rs=nothing
%>
</tr></form>
</table>
</td>
</tr>
</table>
<%end sub%>

<%
sub gjcmodi
id=request("id")
set rs=server.createobject("ADODB.Recordset")
sql="select * from [search] where id=" & id
rs.open sql, conn, 1, 1
%>
       <table border="0" cellspacing="1" cellpadding="0" height="0" align=center width="98%" bgcolor="#183789">
        <tr>
         <td>
           <table width="100%" border="0" cellspacing="1" bgcolor="#FFFFFF" cellpadding="0">
               <tr>
                 <td class="classtop" height="27" align="center" colspan="4">编辑搜索关键词
            </td>
        </tr>
<form action="?action=modigjc" method="post" name="editgjc" >
<tr>
<td class=classtd width="25%">关键词名称
</td>
<td class=classtd width="75%">
<input type="text" name="gjc" size="26"  value="<%=rs("gjc")%>" class="form">
</td>
</tr>
<tr>
<td class=classtd width="25%" >排序
</td>
<td class=classtd width="75%" >
<input type="text" name="cs" size="26"  value="<%=rs("cs")%>" class="form">
</td>
</tr>
<tr class="classfooter">
<td height="30" colspan="4">
<div align="center">
<input type="submit" name="Submit" value="修改" class="button">
&nbsp; &nbsp; 
<input type="reset" name="Submit" value="重填" class="button">
<input type="hidden" name="id" value="<%=rs("id")%>">
<input type="hidden" name="gjc1" value="<%=rs("gjc")%>">
</div>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
end sub
%>