📄 default.asp
字号:
<%@ codepage ="936" %><%if instr(session("flag"),"34")=0 thenresponse.redirect "../login.asp"response.endend if%><!--#include file="../../conn/dbconn2.asp" --><!--#include file="../config.asp"--><link rel="stylesheet" type="text/css" href="../style.css"><body bgcolor="#FFFFFF" marginheight=0 marginwidth=0 leftmargin=0><script language="javascript">function job(mylink){window.open(mylink,'','top=50,left=120,width=400,height=200,scrollbars=yes')}</script><script language="javascript">function info(mylink){window.open(mylink,'','top=50,left=120,width=550,height=380,scrollbars=yes')}</script><%dim totalPut dim CurrentPagedim TotalPagesdim i,jif not isempty(request("page")) thencurrentPage=cint(request("page"))elsecurrentPage=1end ifdim rsdim sqlif not isempty(request("selAnnounce")) thenidlist=request("selAnnounce")if instr(idlist,",")>0 thendim idarridArr=split(idlist)dim idfor i = 0 to ubound(idarr)id=clng(idarr(i))call deleteannounce(id)nextelsecall deleteannounce(clng(idlist))end ifend ifsearch=request("bz")set rs=server.createobject("adodb.recordset") Select Case bzcase ""sql="select * from mod order by ID desc"case "1"sql="select * from mod where typename like '%"&request("txtitle")&"%' order by ID desc"case "2"sql="select * from mod where alt like '%"&request("txtitle")&"%' order by ID desc"end selectset rs=server.createobject("adodb.recordset") sql="select * from mod order by id desc"rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "<p align='center'>没有任何信息，<a href='adrot_add.asp'>请添加>></a></p>" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent totalput,MaxPerPageshowpage totalput,MaxPerPage,"default.asp"else if (currentPage-1)*MaxPerPage<totalPut then rs.move (currentPage-1)*MaxPerPage dim bookmark bookmark=rs.bookmark showContent totalput,MaxPerPageshowpage totalput,MaxPerPage,"default.asp"else currentPage=1 showContent totalput,MaxPerPageshowpage totalput,MaxPerPage,"default.asp"end if end if rs.close end if set rs=nothingsub showContent (totalput,MaxPerPage)%><center><TABLE border=0 cellPadding=3 cellSpacing=0 width="600" style="border-collapse: collapse" bordercolor="#111111"><TBODY><TR bgcolor="#ffffcc"> <TD align=left bgcolor="#FFFFFF"> <form name="search" method="POST" action="default.asp"><p align="center"><img src="../images/search.gif"> 搜索关键字:<input type="text" name="txtitle" size="25" style="font-size: 9pt"> <select style="font-size: 9pt" name="bz"><option value="" selected>显示所有信息</option><option value="1">模板名称</option><option value="2">模板说明</option> end select</select> <INPUT align=absMiddle border=0 src="../images/search1.gif" type=image name="I2"></p></td></TR></TBODY></TABLE><TABLE border="0" cellspacing="0" width="600" cellpadding="0"><TR><TD align=left height=25 width="243"><a href="adrot_add.asp"><img border=0 alt="增加数据" src="../images/add1.gif"></a><a href="adrot_add.asp"><font color="#FF6600">模板增加</font></a></TD><TD align=left height=25 width="357"> </TD></TR></TABLE><TABLE border="1" cellspacing="0" width="600" cellpadding="4" bgcolor="efefef" bordercolorlight="#CAE6FF" bordercolordark="#CAE6FF" style="border-collapse: collapse" bordercolor="#111111"><TR height=25 bgcolor="#cccccc"><TD width="37" align="left" bgcolor="#E6F3FF"><font color="#FF6600"><b>ID号</b></font></TD><TD width="121" align="center" bgcolor="#E6F3FF"><font color="#FF6600"><b>模板名称</b>（预览）</font></TD><TD width="171" align="center" bgcolor="#E6F3FF"><font color="#FF6600"><b>模板说明</b></font></TD><TD width="104" align="center" bgcolor="#E6F3FF"><font color="#FF6600"><b>创建文件夹</b></font></TD><TD width="36" align="center" bgcolor="#E6F3FF"><font color="#Ff6600"><b>修改</b></TD><TD width="55" align="center" bgcolor="#E6F3FF"><font color="#Ff6600"><input type='submit' value='删除'></TD></TR><%do while not rs.eof%><TR height="20" bgcolor="#ffffff"> <TD width="37" align="left"><%=rs("id")%> </TD><TD width="121"><p align="center"><a href="javascript:info("<%=rs("src")%>")"><%=rs("type1")%></a></TD><TD width="171"><%=rs("alt")%> </TD><TD width="104" align="center"><%=rs("typename")%>（<a href="javascript:job("../../company/modADD.asp?id=<%=rs("id")%>")">创建</a>）</TD><TD width="36" align="center"><a href="edit.asp?id=<%=rs("id")%>"><img border="0" src="../images/edit.gif"></a></TD><TD width="51" align="center"><input type='checkbox' name='selAnnounce' value='<%=cstr(rs("id"))%>'></td></TR><% i=i+1if i>=MaxPerPage then exit dors.movenextloop%></TABLE></CENTER><%END SUBFunction showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if if CurrentPage<2 then response.write "<center>" response.write "<table border=0 width=600 cellspacing=0 cellpadding=0>" response.write "<tr height=30>"response.write "<td align=left>"response.write "共<font color=#ff6600><b>"&n&"</b></font>页 第<font color=#ff6600><b>"&CurrentPage&"</b></font>页 共检索到<font color=#ff6600><b>"&totalnumber&"</b></font>条相关信息</td>" response.write "<td align=right>"response.write "【最前页】【上一页】" elseresponse.write "<center>" response.write "<table border=0 width=600 cellspacing=0 cellpadding=0>"response.write "<tr height=30>"response.write "<td align=left>"response.write "共<font color=#ff6600><b>"&n&"</b></font>页 第<font color=#ff6600><b>"&CurrentPage&"</b></font>页 共检索到<font color=#ff6600><b>"&totalnumber&"</b></font>条相关信息</td>" response.write "<td align=right>"response.write "【<a href="&filename&"?page=1>最前页</a>】" response.write "【<a href="&filename&"?page="&CurrentPage-1&">上一页</a>】 " end if if n-currentpage<1 then response.write "【下一页】【最后页】" else response.write "【<a href="&filename&"?page="&(CurrentPage+1)&">" response.write "下一页</a>】【<a href="&filename&"?page="&n&">最后页</a>】" end if response.write "</td>"response.write "</tr>"response.write "</table>"response.write "</form>"end functionsub deleteannounce(id)dim rs,sqlset rs=server.createobject("adodb.recordset")sql="delete from [mod] where id="&cstr(id)conn.execute sqlif err.Number<>0 thenerr.clearresponse.write "删 除 失 败 !<br>"end ifrs.close set rs=nothingEnd sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -