元宵猜灯谜大全及答案:这段代码ASP什么意思啊?急急!!!

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/05 22:52:58
<!--#include file="conn.asp"-->
<%

'批量增加
For Each item In Request.Form
If Left(item,2)="bj" Then
ID=Mid(item,3)

bj=Replace(Request.Form("bj"&ID),"'","''")
xh=Replace(Request.Form("xh"&ID),"'","''")
user=Replace(Request.Form("user"&ID),"'","''")
kc=Replace(Request.Form("kc"&ID),"'","''")
cj=Replace(Request.Form("cj"&ID),"'","''")
xq=Replace(Request.Form("xq"&ID),"'","''")
lx=Replace(Request.Form("lx"&ID),"'","''")

sqlStr="insert into bbs1(bj,xh,user,kc,cj,xq,lx) values('"
sqlStr=sqlStr & bj & "','"
sqlStr=sqlStr & xh & "','"
sqlStr=sqlStr & user & "','"
sqlStr=sqlStr & kc & "','"
sqlStr=sqlStr & cj & "','"
sqlStr=sqlStr & xq & "','"
sqlStr=sqlStr & lx & "')"

response.write "<script language=JavaScript>alert('添加成功,返回成绩查询!');"&"window.location.href = 'teacher_cksk.asp'"&" </script>"
'response.write sqlStr
conn.execute(sqlStr)
End If
Next
Response.END
%>
谁能帮我解释解释啊?
For Each item In Request.Form
If Left(item,2)="bj" Then
ID=Mid(item,3)
具体什么意思?

For Each item In Request.Form
If Left(item,2)="bj" Then
ID=Mid(item,3)
....
next
我来解释一下:
在表单提交页面一定有很多以bj名称开头的表单项目(比如文本框,下拉列表等)
Request.Form 正是包含了这些被提交的表单项目(包括数据)的集合
item是一个自定义的变量 标示任意一个Request.Form集合中表单项目
If Left(item,2)="bj" Then 这条判断是指如果表单项目名称的前2个字符是BJ的话,ID=Mid(item,3) 获取它的ID值,MID函数 从第一个字符开始截取ITEM名称 返回3个字符

程序往下解释依次是:
动态获取表单项目的值并赋予当前定义的变量,然后把数据插入到数据库
这个一个入库的过程,很简单的

把网页查询转换成 sql 查询语句并返回到浏览器上显示出来。

insert into bbs1(bj,xh,user,kc,cj,xq,lx) values

insert语句是 把数据 插入 到 数据表bbs1 中,

对Request.Form里所有的值item循环
进行判断