📄 modi.asp
字号:
<%
if session("password")<>"" then
%>
<html>
<head>
<title> 聽雨軒许愿-修改愿望</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="site.css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="5">
<!--#include file="conn.asp"-->
<%
'************update.asp************
a_name = Request("name") '取得表单字体数据
a_id = Request("id")
a_email= Request("email")
a_homepage = Request("homepage")
a_oicq = Request("oicq")
a_from01 = Request("from01")
if Request("reply")="True" then
a_reply="True"
else
a_reply="False"
end if
a_memo = trim(Request("memo")) ' 取得留言内容
a_memo = Server.HTMLEncode(Request("memo"))
a_memo = Replace( a_memo, vbCrLf, "<br>")
a_memo = Replace( a_memo, "'", "''")
a_master = trim(Request("master")) ' 取得留言内容
a_master = Server.HTMLEncode(Request("master"))
a_master = Replace( a_master, vbCrLf, "<br>")
a_master = Replace( a_master, "'", "''")
SQLcmd = "update wish set "
SQLcmd = SQLcmd & "name='" & a_name & "',memo='" & a_memo & "',email='" & a_email & "',homepage='" & a_homepage & "',oicq='" & a_oicq & "',from01='" & a_from01 & "',reply=" & a_reply & ",master='" & a_master & "',time02=now where id="& a_id
response.write "<table width='100%' border=0 cellspacing=0 cellpadding=0 height='100%'><tr><td>"
response.write "<br><br><table width=250 border=1 cellspacing=2 cellpadding=2 align=center bordercolorlight=7285CF bordercolordark=7285CF height=90 bgcolor=F2F2F2>"
response.write "<tr bordercolor=F2F2F2 bgcolor=F2F2F2 align=center> "
response.write "<td>修改成功！</td>"
response.write "</tr>"
response.write "<tr bordercolor=F2F2F2 bgcolor=F2F2F2 align=center> "
response.write "<td>您修改的记录已成功加入数据库！</td>"
response.write "</tr>"
response.write "</table>"
response.write "</td></tr></table>"
newconn.Execute SQLcmd
%>
</body>
</html>
<%
else
Response.Redirect "admpost.asp" '否则转换到admpost.asp页面
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -