中科新闻网果然新鲜水果微商:好心人帮看看两段ASP代码,说明一下每句话什么意思就行!!
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 17:44:41
< body bgcolor = # fffff0 > < p >
< b > The fields values is : < / b > < p >
< %d1 = Request ("Name" ) % > < % = d1 % > ,
< %d2 = Request ("Sex" ) % > < % = d2 % > ,
< %d3 = Request ("Age" ) % > < % = d3 % > ,
< %d4 = Request ("Subject" ) % > < % = d4 % > ,
< %d5 = Request ("Address" ) % > < % = d5 % > ,
< %d6 = Request ("Phone Number" ) % > < % = d6 % > < p >
< % if not trim(d1) = " " then
data _path = Server. Map Path("login. mdb" )
Set Conn = Server. CreateObject ("ADODB. Connection" )
conn. Open " driver = {Microsoft Access Driver ( *. mdb) } ;
dbq = " &data_path
SQL = " INSERT INTO data (Name ,Sex , Age , Subject ,
Address , Phone number) "
SQL = SQL + " VALUES (′" &d1&"′,′" &d2&"′,′" &d3&"′,
′" &d4&"′,′" &d5&"′,′" &d6&"′) "
Set RS = Conn. Execute (SQL) % >
< a href = . / login.pdf > Return login.pdf < / a >
第二段:
< %Name = Request ("Name" ) % >
< % if not trim(Name) = " " then
data _path = Server.MapPath("test _fdf . mdb" )
Set Conn = Server. CreateObject ("ADODB. Connection" )
conn. Open " driver = {Microsoft Access Driver ( * . mdb) } ;
dbq = " &data _path
SQL = "Select * from data where name like ′" &Name&"′"
Set RS = Conn. Execute (SQL)
if Not RS. EOF then
d1 = RS(0) :d2 = RS(1) :d3 = RS(2)
d4 = RS(3) :d5 = RS(4) :d6 = RS(5)
else
d1 = "No found !"
end if
RS. Close
Conn. Close
end if % >
能不能在每句程序后标一下各个语句的功能啊,我答辩用的,我不懂程序,可搞了个程序的论文,郁闷中
第一段: ' 这个不用解释了吧
< body bgcolor = # fffff0 > < p > ' 北京色为fffff0（差不多是纯白）<p></p>为插入一空白行
< b > The fields values is : < / b > < p > ' <b></b>加粗
< %d1 = Request ("Name" ) % > < % = d1 % > , ' 接收上一页Name的值并显示
< %d2 = Request ("Sex" ) % > < % = d2 % > ,
< %d3 = Request ("Age" ) % > < % = d3 % > ,
< %d4 = Request ("Subject" ) % > < % = d4 % > ,
< %d5 = Request ("Address" ) % > < % = d5 % > ,
< %d6 = Request ("Phone Number" ) % > < % = d6 % > < p >
< % if not trim(d1) = " " then ' 如果d1＝空
data _path = Server. MapPath("login. mdb" ) ' 数据库路径
Set Conn = Server. CreateObject ("ADODB. Connection" ) ' 创建
conn. Open " driver = {Microsoft Access Driver ( *. mdb) } ; dbq = " &data_path ' 打开
SQL = " INSERT INTO data (Name ,Sex , Age , Subject ,
Address , Phone number) "
SQL = SQL + " VALUES (′" &d1&"′,′" &d2&"′,′" &d3&"′,
′" &d4&"′,′" &d5&"′,′" &d6&"′) " ' sql语句（插入一条记录）
Set RS = Conn. Execute (SQL) % > ' 执行sql
< a href = . / login.pdf > Return login.pdf < / a > ' 一个链接
第二段:
< %Name = Request ("Name" ) % >
< % if not trim(Name) = " " then
data _path = Server.MapPath("test _fdf . mdb" )
Set Conn = Server. CreateObject ("ADODB. Connection" )
conn. Open " driver = {Microsoft Access Driver ( * . mdb) } ;
dbq = " &data _path
SQL = "Select * from data where name like ′" &Name&"′"
Set RS = Conn. Execute (SQL)
if Not RS. EOF then ' 数据集查询 如果不是最后一条的下一条
d1 = RS(0)
d2 = RS(1)
d3 = RS(2)
d4 = RS(3)
d5 = RS(4)
d6 = RS(5)
else
d1 = "No found !"
end if
RS. Close ' 关闭
Conn. Close ' 关闭
end if % >
第一段是一个表格提交上来后的操作。先显示一下提交上来的个表项值，如果name 不为空，则将各项值存入数据库login.mdb
第二段是以name 搜索数据库