📄 listtemplate.asp
字号:
<%
if not session("sfadmin") then response.redirect("welcome.asp")
%>
<!--#INCLUDE FILE="../inc/db_inc.asp"-->
<!--#INCLUDE FILE="../inc/char_inc.asp"-->
<HTML>
<HEAD>
<TITLE>list template</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" href="image/style.css" type="text/css">
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000" leftmargin="10" topmargin="10">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
%>
<!--#INCLUDE FILE="checkadmin.asp"-->
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
<TR>
<TD bgcolor="#D1E3BF" colspan="3" align="center"><B>模板列表</B></TD>
</TR>
<TR bgcolor="#F5F5F5"><TD width="30%" align="center">模板名称</TD><TD></TD><TD></TD></TR>
<%
if request("mode") = "del" and request("styleid") <> "" then
Conn.execute("delete from sf_style where styleid=" & request("styleid"))
end if
Set rs = Conn.Execute("SELECT styleid, title FROM sf_style")
i = 1
if not(rs.bof or rs.eof) then
do until rs.eof
i = i + 1
if (i mod 2) = 0 then
response.write "<TR bgcolor=""#FFFFFF"">"
else
response.write "<TR bgcolor=""#F5F5F5"">"
end if
response.write "<TD>" & rs("title") & "</TD><TD><A href=""showtemplate.asp?styleid=" & rs("styleid") & """>查看</A></TD><TD>"
if rs("styleid") = 1 then
response.write "(原始模板,不允许删除)"
else
response.write "<A href=""listtemplate.asp?mode=del&styleid=" & rs("styleid") & """>删除</A>"
end if
response.write "</TD></TR>"
rs.movenext
loop
end if
%>
<TR bgcolor="#DDDDDD"><TD height="3" colspan="3"></TD></TR>
</TABLE>
<BR><BR><BR>
</BODY>
</HTML>
<%
Conn.close
Set Conn = nothing
Set rs = nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -