📄 showtemplate.asp

📁 一个叫做雪人的论坛源码

💻 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="admin.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="2" align="center"><B>模板列表</B></TD>
  </TR>

<%
Set rs = Conn.Execute("SELECT top 1 * FROM sf_style where styleid=" & clng(request("styleid")))
if not(rs.bof or rs.eof) then
	i = 0
	for Each fldName In rs.Fields
		if fldName.name <> "styleid" then
			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 width=""30%"">&nbsp;" & fldName.name & "</TD><TD><A href=""edittemplate.asp?styleid=" & request("styleid") & "&title=" & fldName.name & """>编辑</A></TD></TR>"
		end if
	next
else
%>
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
  <TR> 
    <TD bgcolor="#D1E3BF">错误: 找不到该模板 (styleid=<%=request("styleid")%>)</TD>
  </TR>
</TABLE>
<%
end if
%>
<TR bgcolor="#DDDDDD"><TD height="3" colspan="2"></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 + -