📄 savemoban.asp
字号:
<!--#include file="aspcs.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="admin.ASP"-->
<!--#include file="Inc/articlechar.inc"-->
<%
Dim ID,Moban,Sql,Rs,Founderr
Founerr=False
If Trim(Request.Form("Moban"))="" Then
Founderr=True
Errmsg=Errmsg+"<li>模板内容不能为空</li>"
End If
If Founderr=False Then
Moban=Request("Moban")
Set Rs=Server.Createobject("Adodb.Recordset")
If Request("action")="EditMoban" Then
ljcms.savemo()
End If
Set Rs=nothing
Conn.Close
Set Conn=nothing
Response.Write "<Html>"
Response.Write "<Head>"
Response.Write "<Title>管理中心</title>"
Response.Write "<Meta Http-Equiv=""Content-Type"" Content=""Text/Html; CharSet=Gb2312"">"
Response.Write "<Style>"
Response.Write "td{font-size:9pt;line-height:140%}"
Response.Write "body{font-size:9pt;line-height:140%}"
Response.Write "a:link { color: #0033CC; text-decoration: none }"
Response.Write "a:visited { color: #0033CC; text-decoration: none }"
Response.Write "a:active { color: #FF0000; text-decoration: none }"
Response.Write "a:hover { color: #000000; text-decoration: underline}"
Response.Write "</style>"
Response.Write "</Head>"
Response.Write "<body topmargin=""6"" leftmargin=""0"">"
Response.Write "<p align=""center"">"
Response.Write "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"
If Request("action")=addMoban Then
Response.Write "<tr>"
Response.Write "<td width=""100%"">·<font color=""#FF0000""><b>添加修改!</b></font></td>"
Response.Write "</tr>"
Else
Response.Write "<tr>"
Response.Write "<td width=""100%"">·<font color=""#FF0000""><b>成功：模板已经修改成功!</b></font></td>"
Response.Write "</tr>"
End If
Response.Write "</table>"
Response.Write "</body>"
Response.Write "</html>"
Else
Response.Write "由于以下的原因不能保存数据："
Response.Write Errmsg
END IF
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -