📄 admin_demo.asp

📁 完整的网址站
💻 ASP
字号:
<!--#include file="config.asp"-->
<%
dim founderr,errmsg
founderr=false
errmsg=""
if session("adminlogin")<>sessionvar then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你尚未登录，或者超时了！请<a href='index.asp'>重新登录</a>！"
  call diserror()
  response.end
end if
  if session("flag")>1 then
  errmsg=errmsg+"<br>"+"<li>你的管理权限不够！！</a>！"
  call diserror()
  response.end
else
call main()
end if%> 
<TITLE>精彩网址·网址导航--管理中心--模版管理</TITLE><LINK REL="stylesheet" HREF="css.css" TYPE="text/css"><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<BODY LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0"><script>if(top==self)top.location="index.asp" </script>
<TABLE WIDTH="100%" BORDER="0" CELLPADDING="2" CELLSPACING="0" CLASS="HeaderTdStyle" > 
<TR> 
    <TD HEIGHT="26" 
COLSPAN="2" ALIGN="center"><b>静态页面模版管理</b></TD>
  </TR> <TR> 
<TD WIDTH="85" HEIGHT="30" BGCOLOR=""#0099CF""><B>管理导航</B></TD><TD 
HEIGHT="30" BGCOLOR="#ffffff"><A HREF=admin_demo.asp?action=adddemo>添加模版</A></TD></TR> 
</TABLE><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="40"><TR><TD>&nbsp;</TD></TR></TABLE>
<%sub main()%> <%
dim action
action=trim(Request("action"))
select case action
   case "adddemo"
	call adddemo()
   case "savedemo"
	call savedemo()
   case "deldemo"
	call deldemo()
   case "editdemo"
	call editdemo()
   case "saveeditdemo"
	call saveeditdemo()
   case "demono"
	call demono()
   case "demoyes"
	call demoyes()
   case ""
	call demolist()
end select
%> <%end sub%> <%sub demolist()%><table width="99%" cellspacing="1" cellpadding="3" bgcolor="#0099CF" ALIGN="CENTER"> 
<%
set rs = server.CreateObject ("Adodb.recordset")
sql = "select * from happywz_DEMO order by demoid desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"<tr bgcolor=#ffffff height=20><td colspan=5 ><font color=#cc0000>目前还没有模版！</font></td></tr></table>"
else%> <tr bgcolor=""#0099CF""><td ALIGN="center"><b>ID</b></td><td BGCOLOR=""#0099CF""><b>模版名称</b></td><td BGCOLOR=""#0099CF""><b>模版介绍</b></td><td BGCOLOR=""#0099CF""><b>最后修改日期</b></td><td BGCOLOR=""#0099CF"" ALIGN="center"><b>修改</b></td><td BGCOLOR=""#0099CF"" ALIGN="center"><B>删除</B></td><td BGCOLOR=""#0099CF"" ALIGN="center">启用</td></tr> 
<%do while not rs.EOF%> <tr bgcolor="#ffffff">
    <td BGCOLOR=""#0099CF"" align="center"><b><%=rs("demoid")%></b></td>
    <td><font color=#0033cc><%=rs("demoname")%></font></td><td>&nbsp;&nbsp;&nbsp;&nbsp;<font color=#666666><%=rs("demoinfo")%></font></td><td><%=rs("addtime")%></td><td ALIGN="CENTER" BGCOLOR=""#0099CF""><a href=admin_demo.asp?action=editdemo&demoid=<%=rs("demoid")%>>修改</a></td><td ALIGN="CENTER"><A HREF=admin_demo.asp?action=deldemo&demoid=<%=rs("demoid")%>>删除</A></td><td ALIGN="CENTER" BGCOLOR=""#0099CF""><%if rs("ifuse")=1 then%><A HREF=admin_demo.asp?action=demono&demoid=<%=cstr(rs("demoid"))%>><FONT COLOR=#0000ff>是</FONT></A><%else%><A HREF=admin_demo.asp?action=demoyes&demoid=<%=cstr(rs("demoid"))%>>否</A><%end if%></td></tr> 
<%
rs.MoveNext 
loop
end if
rs.Close 
set rs=nothing
%> </table><%end sub%> <%sub adddemo()%> <table width="95%" cellspacing="1" cellpadding="3" bgcolor="#0099CF" align="center"> 
<form action="admin_demo.asp?action=savedemo" method=POST name=adddemo> <tr bgcolor="#0099CF" align=center>
      <td colspan="2"><b>添加一个新模版</b></td>
    </tr> 
<tr bgcolor="#ffffff">
      <td align=right>模版名称＼</td>
      <td><input type=text name=demoname size=20></td></tr> 
<tr bgcolor="#ffffff">
      <td align=right>模版内容＼</td>
      <td><textarea name="demohtml" cols="80" rows="15"></textarea></td></tr> 
<tr bgcolor="#ffffff">
      <td align=right>模版说明＼</td>
      <td><textarea name="demoinfo" cols="40" rows="3"></textarea></td></tr> 
<tr bgcolor=#ffffff><td></td><td><input type="submit" name="Submit" value="确定"> 
&nbsp;&nbsp;<input type="Reset" name="Reset" value="重填"></td></tr> </form></table><%end sub%> 
<%sub savedemo()%> <%if Request("demoname")="" then%> <script language=javascript>  
alert( "错误：请输入模版名称！"  );
location.href = "javascript:history.back()"  
</script> <%elseif Request("demohtml")="" then%> <script language=javascript>  
alert( "错误：请输入模版内容！"  );
location.href = "javascript:history.back()"  
</script> <%elseif Request("demoinfo")="" then%> <script language=javascript>  
alert( "错误：请输入模版介绍！"  );
location.href = "javascript:history.back()"  
</script> <%else%> <%
set rs = server.CreateObject ("adodb.recordset")
sql = "select * from happywz_DEMO"
	rs.Open sql,conn,1,3
	rs.AddNew
	rs("demoname") = Request("demoname")
	rs("demohtml") = Request("demohtml")
	rs("demoinfo") = Request("demoinfo")
	rs("Addtime") = now()
	rs("ifuse") = 0
	rs.Update 
	rs.Close 
set rs=nothing
%> <script language=javascript>  
alert( "模版添加成功"  );
location.href = "admin_demo.asp"  
</script> <%end if%> <%end sub%> <%sub deldemo()
sql="delete * from happywz_DEMO where demoid="&Request("demoid")
conn.execute(sql)
%> <script language=javascript>  
alert( "模版删除成功"  );
location.href = "admin_demo.asp"  
</script> <%end sub%> <%sub demono()
sql="update happywz_DEMO set ifuse=0  where demoid="&Request("demoid")
conn.execute(sql)
response.redirect "admin_demo.asp"
end sub%> <%sub demoyes()
sql="update happywz_DEMO set ifuse=1  where demoid="&Request("demoid")
conn.execute(sql)
response.redirect "admin_demo.asp"
end sub%> <%sub editdemo()%> <%
     set rs=server.createobject("adodb.recordset")
   sql="select * from happywz_demo where demoid="&Request("demoid")
   rs.open sql,conn,1,1
%> <table width="95%" cellspacing="1" cellpadding="3" bgcolor="#0099CF" align="center"> 
<form action="admin_demo.asp?action=saveeditdemo&demoid=<%=rs("demoid")%>" method=POST name=editdemo> 
<tr bgcolor="#0099CF" align=center>
      <td colspan="2"><b>修改模版</b></td>
    </tr> <tr bgcolor="#ffffff">
      <td align=right>模版名称＼</td>
      <td><input type=text name=demoname size=20 value=<%=rs("demoname")%>></td></tr> 
<tr bgcolor="#ffffff">
      <td align=right>模版内容＼</td>
      <td><textarea name="demohtml" cols="80" rows="15"><%=rs("demohtml")%></textarea></td></tr> 
<tr bgcolor="#ffffff">
      <td align=right>模版说明＼</td>
      <td><textarea name="demoinfo" cols="40" rows="3"><%=rs("demoinfo")%></textarea></td></tr> 
<tr bgcolor=#ffffff><td></td><td><input type="submit" name="Submit" value="确定"></td></tr> 
</form></table><%end sub%> <%sub saveeditdemo()%> <%if Request("demoname")="" then%> 
<script language=javascript>  
alert( "错误：请输入模版名称！"  );
location.href = "javascript:history.back()"  
</script> <%elseif Request("demohtml")="" then%> <script language=javascript>  
alert( "错误：请输入模版内容！"  );
location.href = "javascript:history.back()"  
</script> <%elseif Request("demoinfo")="" then%> <script language=javascript>  
alert( "错误：请输入模版介绍！"  );
location.href = "javascript:history.back()"  
</script> <%else%> <%
set rs = server.CreateObject ("adodb.recordset")
sql = "select * from happywz_DEMO where demoid="&cstr(Request("demoid"))
	rs.Open sql,conn,1,3
if not rs.eof then
	rs("demoname").value = Request("demoname")
	rs("demohtml").value = Request("demohtml")
	rs("demoinfo").value = Request("demoinfo")
	rs("addtime")=now()
	rs.Update 
end if
rs.Close 
set rs=nothing
%> <script language=javascript>  
alert( "模版修改成功！"  );
location.href = "admin_demo.asp"  
</script> <%end if%> <%end sub%><BR><BR><BR><TABLE WIDTH="99%" BORDER="0" CELLPADDING="2" CELLSPACING="1" BGCOLOR="#0099CF" ALIGN="CENTER" > 
<TR BGCOLOR="#0099CF"> 
    <TD HEIGHT="22" 
COLSPAN="2" ALIGN="center"><B>操作说明 </B></TD>
  </TR> <TR BGCOLOR="#ffffff"> 
    <TD WIDTH="87" HEIGHT="30"><B>操作说明＼</B></TD>
    <TD 
HEIGHT="30">
      <LI>
    </TD></TR> </TABLE>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -