response.asp

来自「大家好」· ASP 代码 · 共 52 行

ASP
52 行
字号 
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="adovbs.inc"-->
<% response.buffer=true %>
<script language="vbscript" runat="server">
FUNCTION Check (s)
Dim pos
pos = InStr(s, "'")
 While  pos > 0
 s = Mid(s, 1, pos) & "'" & Mid (s, pos + 1)
 pos = InStr(pos + 2, s, "'")
WEND
Check=s
END FUNCTION
</script>

<%
DbPath = SERVER.MapPath("forum.mdb")
   Set conn = Server.CreateObject("ADODB.Connection")
   conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
%>
<html>
<head>
<title>response</title>
</head>
<%
id=request("id")
'response.write id
'response.end
sql="update forum set child=child+1 where id=cdbl('"&request("id")&"') "
conn.execute sql
dim xl
xl=request("xl")
comment=replace(request("comment"),vbcrlf,"<br>")
		dim xl_l
		dim i
		xl_l=cstr(request("child"))
		for i=1 to 3-len(xl_l)
			xl_l="0"+xl_l
		next
		xl_l=trim(xl)+trim(xl_l)
insertnum=0		
sqltext="insert into forum(username,title,comment,brow,xl,regtime)"
sqltext=sqltext+"values('"&check(server.htmlencode(request("username")))&"','"&check(server.htmlencode(request("title")))&"','"& check(server.htmlencode(comment))&"','"&request("brow")&"','"+xl_l+"',now)"
conn.execute sqltext,insertnum
if insertnum=1 then
 response.redirect"default.asp"
myconn.close
else
  response.write"insert failer"
end if 
%>

response.asp - 源码说明

本页面展示了「大家好」中的 response.asp 源码文件，采用 ASP 编程语言编写，共 52 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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