savewords.asp

来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 58 行

ASP
58 行
字号 
<!--#include file="conn.asp" -->
<%
'下面是ubb代码
Function HTMLEncode2(fString)
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</p><p>")
    fString = Replace(fString, CHR(10), "<br>")
    HTMLEncode2 = fString
End Function

Dim UserName,Area,Address
Dim PostCode,Tel,Email
Dim Contents

ChannelID=Replace(Trim(Request.Form("ChannelID")),"'","")
ArticleID= Replace(Trim(Request.Form("ArticleID")),"'","")
Name= Replace(Trim(Request.Form("Name")),"'","")
Sex= Replace(Trim(Request.Form("Sex")),"'","")
Score= Replace(Trim(Request.Form("Score")),"'","")
Content= HTMLEncode2(Request.Form("Content"))
if Contents = "" then Contents ="Nul"

'判断是否同一时间重复提交
If Session("fkfk") = Minute(Now) Then
   With Response
        .Write vbCrLf & "<script language=""vbscript"">"
        .Write vbCrLf & "<!--"
        .Write vbCrLf & "MsgBox ""Error！"",vbExclamation,""save"""
        .Write vbCrLf & "window.history.back"
        .Write vbCrLf & "-->"
        .Write vbCrLf & "</script>"
   End With
End If
Dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT * FROM msg",conn1,1,2
rs.AddNew
rs("ArticleID")=ArticleID
rs("Name")      = Name
rs("Sex")    = Sex
rs("Score") = Score
rs("Content") =Content
rs("ChannelID") =ChannelID

rs.Update
rs.Close
Set rs = Nothing
conn1.Close
Set conn1 = Nothing
Session("fkfk") = Minute(Now)
RESPONSE.REDIRECT REQUEST("URL")
%>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

savewords.asp - 源码说明

本页面展示了「小游戏网站演示www.4399.io 拥有4万条游戏数据」中的 savewords.asp 源码文件，采用 ASP 编程语言编写，共 58 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与4399相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?