📄 artsave.asp
字号:
<!-- #include file="ChkPwd.asp" -->
<html>
<head>
<title>保存用户信息</title>
</head>
<body>
<%
'定义变量
Dim sql, vFlag, vUserName, vSubject, vWords, vUpperId
'从参数或表单中接收数据到变量中
vUserName = Session("UserName")
vSubject = Request("Subject")
vWords = Request("Words")
vUpperId = CLng(Request("UpperId"))
'Server对象的CreateObject方法建立Connection对象
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("Database/discuss.mdb")
Conn.Open
'生成当前时间
vCreateTime = Now
'插入新数据
sql="INSERT INTO Content (Subject, Words, UserName, CreateTime, LastAnswerTime, HitCount," _
& " IsTop, UpperId) VALUES('" & vSubject & "','" & vWords & "','" & vUserName & "','" _
& vCreateTime & "','" & vCreateTime & "', 0, 0," & vUpperId & ")"
Conn.Execute(sql)
Response.Write "<h2>信息已成功保存！</h2>"
%>
</body>
<% If vUpperId = 0 Then %>
<Script language="javascript">
//打开此脚本的网页将被刷新
opener.location.reload();
//停留800毫秒后关闭窗口
setTimeout("window.close()",800);
</Script>
<% Else
Response.Redirect("view.asp?ContId=" & vUpperId)
End If %>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -