www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > adminhymm/admin_template.asp

    <!--#include file="mdb.asp"-->

<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录,或者超时了!请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
dim id,modify,template
id=request("id")
modify=request("modify")
template=request("template")
if modify="yes" then
if template="" then
Response.Write("<script language=javascript>alert('请输入模板内容!');this.location.href='Admin_template.asp?id="&id&"';</script>")
Response.End
end if
set r=server.createobject("adodb.recordset")
r.open "select * from template where id="&id,conn,1,3
if not r.eof then
r("id")=id
r("template")=template
r.update
Response.Write("<script language=javascript>alert('模板已成功更改!');this.location.href='Admin_template.asp?id="&r("id")&"';</script>")
Response.End
else
Response.Write("<script language=javascript>alert('无法完成请求!');this.location.href='Admin_template.asp?id="&r("id")&"';</script>")
Response.End
end if
r.close
set r=nothing
end if
%>
<HTML>
<HEAD>
<TITLE>模板修改管理</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
</HEAD>
<BODY>
<form action='Admin_template.asp?id=<%=id%>' method='post'>
<%
set r=server.createobject("adodb.recordset")
r.open "select * from template where id="&id,conn,1,3
if not r.eof then
%>
<table width="95%" border="0" cellspacing="1" cellpadding="8" align="center" bgcolor="#D3D3D">
<tr><td bgcolor="#D3D3D3" align="center">模板修改管理</td>
</tr><tr><td bgcolor="#FFFFFF">
模板类别:
    <input name="name" value='<%=r("name")%>' disabled>
</td>
</tr>
<tr><td bgcolor="#FFFFFF">
<textarea cols="100%" rows="25" name="template"><%=r("template")%></textarea>
</td>
</tr>
<tr><td bgcolor="#FFFFFF">
<input type="submit">
</td>
</tr>
</table>
<%
end if
r.close
set r=nothing
%>
<input name="modify" value="yes" type="hidden">
</form>
</BODY>
</HTML>