www.gusucode.com > Follow me超级搜索引擎 > admin/webtext.asp
<!--#include file="../conn.asp"-->
<%
dbpath="../"
dblink
%>
<!--#include file="check.asp"-->
<%
dim action,id,dname
action=Server.HtmlEncode(request.querystring("action"))
dname=Server.HtmlEncode(request("dname"))
''''''''
''''''''''k
select case action
case "add"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from websou where weburl='"&Trim(request("weburl"))&"' ",conn,1,1
if rs.EOF and rs.BOF then
rs.close
rs.open "select * from websou order by webid desc",conn,2,3
rs.AddNew
rs("webtext")=Trim(request("webname"))
rs("weburl")=Trim(request("weburl"))
rs("indexid")=clng(request("indexid"))
rs("indexshow")=Server.HtmlEncode(request("indexshow"))
rs.Update
rs.Close
set rs=nothing
response.Redirect "?pageid=1"
else
response.write "<script>window.alert('你输入的网站网址"&dname&"已经添加过了！');history.go(-1);</script>"
end if
case "edit"
if request("webname")="" and request("weburl")="" and request("indexid")="" then
response.write "<script language='javascript'>"
response.write "alert('每一项都不能为空，必须填写');"
response.write " history.go(-1);"
response.write "</script>"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from websou where webid like '"&clng(request("iid"))&"'",conn,2,3
rs("webtext")=Trim(request("webname"))
rs("weburl")=Trim(request("weburl"))
rs("indexid")=clng(request("indexid"))
rs("indexshow")=Server.HtmlEncode(request("indexshow"))
rs.Update
rs.Close
set rs=nothing
dim ppageid
if request("pageid")="" then
ppageid=1
else
ppageid=request("pageid")
end if
response.Redirect "?pageid="&ppageid&"&keyword="&request("keyword")&""
%>
<%
case "del"
set rs=server.CreateObject("adodb.recordset")
conn.execute ("delete from websou where webid like '"&clng(request("iid"))&"'")
conn.close
set conn=nothing
if request("pageid")="" then
ppageid=1
else
ppageid=request("pageid")
end if
response.Redirect "?pageid="&ppageid&"&keyword="&request("keyword")&""
end select
%>
<HTML>
<HEAD>
<LINK rel="stylesheet" type="text/css" href="Inc/style.css">
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="GENERATOR" content="Microsoft FrontPage 4.0">
<META name="ProgId" content="FrontPage.Editor.Document">
<TITLE>问题管理</TITLE>
</HEAD>
<BODY background="images/background.gif">
<TABLE width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#799AE1">
<TR>
<TD height="20" bgcolor="#799AE1" align="center"><FONT color="#FFFFFF" style="font-size:14px">添 加 网 站</FONT></TD>
</TR>
<TR>
<TD bgcolor="#FFFFFF">
<TABLE width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#D6DFF7">
<TR align="center" bgcolor="#FFFFFF" height="20">
<TD>网站名称</TD>
<TD>网站网址</TD>
<TD>显示顺序<br>(数值越大越靠前)</TD>
<TD>是否显示</TD>
<TD>操作</TD>
</TR>
<FORM name="form1" method="post" action="?action=add">
<TR align="center" bgcolor="#FFFFFF">
<TD><input name="webname" type="text" size="15" ></TD>
<TD><input name="weburl" type="text" size="33" ></TD>
<TD><INPUT name="indexid" onkeyup="if(isNaN(value))execCommand('undo')" type="text" size="2" value="0"></TD>
<TD><SELECT name="indexshow">
<OPTION value="0" selected>显示</OPTION>
<OPTION value="1" >隐藏</OPTION>
</SELECT></TD>
<TD><INPUT type="submit" name="Submit3" value="添 加" onClick="if(weburl.value==''||webname.value==''||indexid.value=='' ){alert('每一项都不能为空');return false;}"></TD>
</TR>
</FORM>
</TABLE>
<BR></TD>
</TR>
</TABLE>
<br>
</BODY>
<TABLE width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#799AE1">
<TR>
<TD height="20" bgcolor="#799AE1" align="center">
<TABLE width="100%" border="0" cellspacing="0" cellpadding="0">
<TR>
<TD align="center"><FONT color="#FFFFFF" style="font-size:14px">全 部 网 址 快 速 搜 索 管 理</FONT></TD>
<td> <FORM action="?" method="post" name="search"><TD width="240" align="center" ><FONT color="#FFFFFF" style="font-size:14px">关键字</font>
<INPUT maxLength="20" name="keyword" onFocus="this.value=''" size="18" value="">
<INPUT type="submit" value="搜索" style="font-size: 12px" name="search"></TD>
</FORM></td>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD bgcolor="#FFFFFF"> <BR>
<TABLE width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#D6DFF7">
<TR align="center" bgcolor="#FFFFFF" height="20">
<TD width="30">编号</TD>
<TD width="120">网站名称</TD>
<TD width="250">网站网址</TD>
<TD>显示顺序<br>(数值越大越靠前)</TD>
<TD>是否显示</TD>
<TD>管理操作</TD>
</TR>
<%
set rs=server.createobject("adodb.recordset")
keyword=request("keyword")
if keyword <>"" then
sql="select * from websou where webtext like '%" & keyword &"%' or weburl like '%" & keyword & "%' order by indexid desc,webid desc "
else
sql="select * from websou order by indexid desc,webid desc"
end if
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write"<tr bgcolor=#FFFFFF><td colspan='11'><p align='center'><font color='red'>没有网站！</font></td></tr></table><br>"
response.end
else
const maxperpage=20
dim currentpage
rs.pagesize=maxperpage
currentpage=Clng(request("pageid"))
if isnumeric(currentpage)=false then
response.write "<script>alert('参数错误，关闭窗口！');window.close();</script>"
response.end
end if
if currentpage="" then
currentpage=1
elseif currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
if currentpage > rs.pagecount then
currentpage=rs.pagecount
end if
end if
dim totalput,n
totalput=rs.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
rs.move(currentpage-1)*maxperpage
i=0
do while i< maxperpage and not rs.eof%>
<FORM name="form1" method="post" action="?action=edit&iid=<%=int(rs("webid"))%>&pageid=<%=request("pageid")%>&keyword=<%=request("keyword")%>">
<TR bgcolor="#FFFFFF" align="center">
<TD><%=i%></TD>
<TD width="120">
<input name="webname" type="text" size="15" value="<%=trim(rs("webtext"))%>">
</TD>
<TD width="250">
<input name="weburl" type="text" size="33" value="<%=trim(rs("weburl"))%>">
</TD>
<TD><INPUT name="indexid" onkeyup="if(isNaN(value))execCommand('undo')" type="text" size="2" value="<%=rs("indexid")%>"></TD>
<TD><SELECT name="indexshow">
<OPTION value="0" <%if rs("indexshow")="0" then%>selected<%end if%>>显示</OPTION>
<OPTION value="1" <%if rs("indexshow")="1" then%>selected<%end if%>>隐藏</OPTION>
</SELECT></TD>
<TD><INPUT type="submit" name="Submit" value="修 改">
<INPUT type="button" name="DEL" onClick="{if(confirm('确定要删除这个问题吗？\n此操作不可以恢复！')){location.href='?action=del&iid=<%=rs("webid")%>&pageid=<%=request("pageid")%>&keyword=<%=request("keyword")%>';}return false;}" value="删除" >
</TD>
</TR>
</FORM>
<%i=i+1
rs.movenext
loop
rs.close
set rs=nothing
end if
conn.close
set conn=nothing %>
</TABLE>
<BR>
</TD>
</TR>
</TABLE></FORM>
<TABLE width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#ffffff">
<TR>
<TD height="20" width="70%" bgcolor="#FFFFFF" border="0" > <FORM action="?keyword=<%=request("keyword")%>" method="post" name="pageid1"><p align="center" valign="bottom">页数：<%=currentpage%>/<%=n%>
<%k=currentpage
if k<>1 then%>
<A href="?pageid=1&keyword=<%=request("keyword")%>">首页</A>
<A href="?pageid=<%=k-1%>&keyword=<%=request("keyword")%>">上一页</A> <%else%>
首页 上一页
<%end if%>
<%if k<>n then%>
<A href="?pageid=<%=k+1%>&keyword=<%=request("keyword")%>">下一页</A>
<A href="?pageid=<%=n%>&keyword=<%=request("keyword")%>">尾页</A>
<%else%>
下一页 尾页
<%end if%>
共有 <%=totalput%> 条信息 跳转
<INPUT maxLength="20" name="pageid" onkeyup="if(isNaN(value))execCommand('undo')" size="2" value="">
<INPUT type="submit" value="搜索" style="font-size: 12px" name="search1"></p> </FORM></TD>
</TR>
</TABLE>
</HTML>