📄 showme.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="refresh" content="10">
<title>无标题文档</title>
<style>
td{font-size:14px;}
</style>
</head>
<body>
<!--
'==================================================
'名称：炒米者之铲
'作者：老彭 Laopeng.Net
'发布：云起工作室
'网址：http://www.commonsite.cn
'日期：2008-5-22
'==================================================
-->
<%
if request("do")="del" and request("id")<>"" then
conn.execute("delete from danci where id="&request("id"))
response.Redirect("showme.asp")
end if
i=0
response.Write("<table width='100%'><tr>")
set rs=conn.execute("select id,danci,cn,com,comcn from danci where cn=1 or com=1 or comcn=1 order by id")
do while not rs.eof
if cstr(rs("cn"))="1" then
if i mod 5=0 and i<>0 then
response.Write("</tr><tr>")
end if
response.Write("<td width='20%'>"&rs(1)&".cn可用 [<a href='showme.asp?do=del&id="&rs(0)&"'>删除</a>]</td>")
i=i+1
end if
if cstr(rs("com"))="1" then
if i mod 5=0 and i<>0 then
response.Write("</tr><tr>")
end if
response.Write("<td width='20%'>"&rs(1)&".com可用 [<a href='showme.asp?do=del&id="&rs(0)&"'>删除</a>]</td>")
i=i+1
end if
if cstr(rs("comcn"))="1" then
if i mod 5=0 and i<>0 then
response.Write("</tr><tr>")
end if
response.Write("<td width='20%'>"&rs(1)&".com.cn可用 [<a href='showme.asp?do=del&id="&rs(0)&"'>删除</a>]</td>")
i=i+1
end if
rs.movenext
loop
rs.close
set rs=nothing
response.Write("</tr></table>")
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -