📄 modify2.asp
字号:
<%Option Explicit%>
<!--#include file="adoconn.asp"-->
<%
dim objRS,sql
dim sortid,staid,title,url,comments,name,lang,referer,email,logo,aboutserver,aboutarea,aboutname,infoname,infotime
referer = Request.Form("referer")
staid = Request.Form("staid")
sortid = Request.Form("sortid")
title = Trim(replace(Request.Form("title"),"""","“"))
url = Request.Form("url")
infoname = Request.Form("infoname")
infotime = Request.Form("infotime")
comments = Trim(replace(Request.Form("comments"),"""","“"))
name = Trim(replace(Request.Form("name"),"""","“"))
lang = Request.Form("lang")
aboutserver = Request.Form("aboutserver")
aboutarea = Request.Form("aboutarea")
aboutname = Request.Form("aboutname")
email = Trim(replace(Request.Form("email"),"""","“"))
if Trim(title) = "" or Trim(url) = "" or Trim(comments) = "" then
Response.Write("<script language=""JavaScript"">alert(""还没填完呢！"");history.go(-1);</script>")
Response.End
elseif title <> Server.HTMLEncode(title) or comments <> Server.HTMLEncode(comments) or name <> Server.HTMLEncode(name) then
Response.Write("<script language=""JavaScript"">alert(""请勿包含ＨＴＭＬ标记！"");history.go(-1);</script>")
Response.End
end if
if Trim(name) = "" then name = " 未知 "
Set objRS = Server.CreateObject("ADODB.RecordSet")
sql = "select * from stationinfo where id = " & staid
objRS.Open sql, objConn, 3, 3
objRS("stationname") = title
objRS("stationurl") = url
objRS("stationlang") = lang
objRS("description") = comments
objRS("infoname") = infoname
objRS("infotime") = infotime
objRS("siteabout") = aboutserver
objRS("sitearea") = aboutarea
objRS("sitename") = aboutname
if name <> "" then objRS("whopost") = name
if email <> "" then objRS("email") = email
' objRS("thisdate") = now()
objRS("parentid") = sortid
' objRS("ispass") = TRUE
objRS.Update()
objRS.Close()
objConn.Close()
Set objConn = nothing
Set objRS = nothing
%>
<html>
<head>
<meta http-equiv="refresh" content="1;URL=<%=referer%>">
</head>
<body>
<center>成功修改信息，正在载入该信息所在页面，请稍候......
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -