📄 adminsave.asp
字号:
<%
'检查用户是否已经经过登陆验证了
if session("admin") = "" Then
'如果没有登陆，则输出出错信息
'要求用户进行登陆
response.write " <br><br><br>"
response.write " <table align='center' width='300' border='1' cellpadding='0' cellspacing='0' bordercolor='#999999'>"
response.write " <tr bgcolor='#999999'> "
response.write " <td colspan='2' height='15'> "
response.write " <div align='center'><font color='#FFFFFF'>操作: 确认身份失败!</font></div>"
response.write " </td>"
response.write " </tr>"
response.write " <tr> "
response.write " <td colspan='2' height='23'> "
response.write " <div align='center'><br><br>"
response.write " 非法登陆,您的操作已经被记录!!! <br><br>"
response.write " <a href='javascript:onclick=history.go(-1)'>返回</a>"
response.write " <br><br></div></td>"
response.write " </tr> </table>"
'终止响应
response.end
end If
%>
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
'变量定义
dim rs,sql,title,content,articleid,classid,Nclassid,Nkey,writer,writefrom
dim errmsg,founderr
founerr=False
'检查各表单项
if trim(request.form("txttitle"))="" then
founderr=true
errmsg="<li>标题不能为空</li>"
end if
if trim(request.form("txtcontent"))="" then
founderr=true
errmsg=errmsg+"<li>内容不能为空</li>"
end If
if trim(request.form("key"))="" then
founderr=true
errmsg=errmsg+"<li>请输入文章关键字</li>"
end if
'必须选择短消息的类别
if request("Nclassid")="" or request("classid")="" then
response.Write("<br><br>请选择业务的分类！<br><a href='javascript:window.history.back();'>返回</a>"):response.End()
End IF
'没有发现错误
if founderr=false Then
'HTML字符处理
title=htmlencode(request.form("txttitle"))
content=htmlencode(request.form("txtcontent"))
Nkey=htmlencode(trim(request.form("key")))
classid=request.form("classid")
Nclassid=request.form("Nclassid")
'记录集对象
set rs=server.createobject("adodb.recordset")
if request("action")="add" Then
'添加新消息
call newMsg()
elseif request("action")="edit" Then
'修改信息
call editMsg()
else
founderr=true
errmsg=errmsg+"<li>没有选定参数</li>"
end If
'关闭记录集,释放对象
rs.close
set rs=Nothing
'关闭数据库连接,释放对象
conn.close
set conn=nothing
%>
<html>
<head>
<title></title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<div align="center"><center>
<br><br>
<table width="50%" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr>
<td width="100%" bgcolor="#999999" height="20"><p align="center"><font color="#FFFFFF"><b>
<%
if request("action")=add Then
%>添加
<%
Else
%>修改
<%
end If
%>短消息成功</b></font></td>
</tr>
<tr>
<td width="100%"><p align="left"><br>
短消息序号为：<%response.write ""&articleid%><br>
短消息标题为：<%response.write title%></p>
您可以进行其他操作
</td>
</tr>
</table>
</center></div>
<%
Else
'出现错误,提示用户
response.write "由于以下的原因不能保存数据："
response.write errmsg
end if
%>
</body>
</html>
<%
'添加新信息的过程
sub newMsg()
'获取空白记录
sql="select * from MESSAGE where (id is null)"
'打开记录集
rs.open sql,conn,1,3
'添加新记录
rs.addnew
rs("title")=title
rs("CONTENT")=content
rs("SUBclassid")=Nclassid
rs("classid")=classid
rs("KEYWORD")=Nkey
'添加作者
if request.form("writer")<>"" then
rs("writer")=trim(request.form("writer"))
end If
'信息来源
if request.form("writefrom")<>"" then
rs("WRITEFROM")=trim(request.form("writefrom"))
end If
'提交更新
rs.update
articleid=rs("id")
end Sub
'编辑原有信息
sub editMsg()
'获得选定的记录
sql="select * from MESSAGE where id="&request("id")
rs.open sql,conn,1,3
rs("title")=title
rs("CONTENT")=content
rs("SUBclassid")=Nclassid
rs("classid")=classid
rs("KEYWORD")=Nkey
if request.form("writer")<>"" then
rs("writer")=trim(request.form("writer"))
end if
if request.form("writefrom")<>"" then
rs("writefrom")=trim(request.form("writefrom"))
end if
rs.update
articleid=rs("id")
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -