📄 default.asp
字号:
<!--#include file="../Session.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../css/site.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="50" align="center" class="tdstyle"><font color="#000000" size="3"><a href="Default.asp"><strong>管理</strong></a>
| <a href="Add.asp"><strong>添加</strong></a></font></td>
</tr>
<tr>
<td height="50" align="center" class="tdstyle"><strong><font color="#000000" size="3">组图列表</font></strong></td>
</tr>
<%set rs=server.createobject("adodb.recordset")
sql="select * from firstpic order by id desc "
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr><td height=30 align=center class=text>没有记录,请添加!</tr></td>"
else
rs.pagesize=18
countpage=rs.pagecount
if request("page")="" or IsNumeric(request("page"))=False then
ccount= 1
else
ccount=int(request("page"))
end if
if int(ccount)>countpage or int(ccount)<=0 then
ccount=1
else
ccount=ccount
end if
rs.absolutepage=ccount
%>
</table>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="0">
<form name="form1" method="post" action="Del.asp">
<tr bgcolor="#f1f1f1" valign="middle" align="center">
<td width="8%" height="30" class="tdstyle"><strong>ID</strong></td>
<td width="26%" class="tdstyle"><strong>添加日期</strong></td>
<td width="20%" class="tdstyle"><strong>位 置</strong></td>
<td width="8%" class="tdstyle"><strong>显 示</strong></td>
<td width="10%" class="tdstyle"><strong>修 改</strong></td>
<td width="10%" class="tdstyle"><strong>复 制</strong></td>
<td width="10%" class="tdstyle"><strong>预 览</strong></td>
<td width="8%" class="tdstyle"><strong>选 择</strong></td>
</tr>
<% do while not rs.eof
id=rs(0)%>
<tr valign="middle" align="center">
<td height="25" class="tdstyle"><%=rs("id")%></td>
<td class="tdstyle"><%=rs("dates")%> </td>
<td class="tdstyle">
<%if rs("BigId")<>"0" then
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql = "select BCName from BigClass where BigId="&rs("BigId")&""
rs2.open sql,conn,0,1
Response.Write(""&rs2("BCName")&"")
rs2.close
else
Response.Write("首页")
end if%> </td>
<td class="tdstyle">
<%ifshow=rs("ifshow")%>
<%if ifshow=1 then%>
<input name="submit" type="button" class="button5" value="是" onClick="if(confirm('您确定要改变吗?')) location.href='Ifshow.asp?id=<%=id%>&ifshow=<%=ifshow%>&page=<%=ccount%>'">
<%else%>
<input name="submit" type="button" class="button4" value="否" onClick="if(confirm('您确定要改变吗?')) location.href='Ifshow.asp?id=<%=id%>&ifshow=<%=ifshow%>&page=<%=ccount%>'">
<%end if%>
</td>
<td class="tdstyle"><input name="submit" type="button" class="button2" value="修 改" onClick="window.location='Amend.asp?id=<%=id%>&page=<%=ccount%>'"></td>
<td class="tdstyle"><input name="submit" type="button" class="button2" value="复 制" onClick="window.location='Copy.asp?id=<%=id%>'"></td>
<td class="tdstyle"><input name="submit" type="button" class="button2" value="预 览" onClick="window.location='Preview.asp?id=<%=id%>'"></td>
<td class="tdstyle"><input name="submit" type="button" class="button2" value="删 除" onClick="if(confirm('您确定要删除吗?')) location.href='Del.asp?id=<%=id%>&page=<%=ccount%>'"></td>
</tr>
</form>
<form name="form1" method="post" action="Default.asp">
<%i=i+1
rs.movenext
if i>=rs.pagesize then exit do
loop
%>
<tr>
<td height="30" colspan="8" align="center" class="tdstyle">共[<strong><font color="#FF0000"><%=countpage%></font></strong>]页 现处于第[<strong><font color="#FF0000"><%=ccount%></font></strong>]页
<a href=Default.asp?page=1>首页</a>
<a href=Default.asp?page=<%if ccount-1<1 then response.write ccount else response.write ccount-1 end if%>>上一页</a>
<a href=Default.asp?page=<%if ccount+1>countpage then response.write ccount else response.write ccount+1 end if%>>下一页</a>
<a href=Default.asp?page=<%=countpage%>>尾页</a> <font face="Arial, Helvetica, sans-serif">转到 </font>
<input name="page" type="text" class="input1" size="3">
<input name="Submit" type="submit" class="button" value="转到">
</td>
</tr>
</form>
</table>
<%end if %>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -