帮我解释下几句程序 - ASP

忘记∽所有

电梯直达

1^#

发表于 2010-1-18 04:38:42 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

1.       <%
2.       function Inquery
3.       tablename="产品类别"
4.    OBJCONN=SERVER.CreateObject("ADODB.Connection")
5.    strDSN="DSN=Trate;uid=test;pwd=test1"
6.    OBJConn.open strDSN
7.    strSQL="Insert Into"&Tablename&"Value("&_" ' "                （解释下）
8.    &Request.FORM("NewClassifyNo")&" ', "&_                         （解释下）
9.    " ' "& Request.Form("Newclassifyinfo")&" ' ")"                      （解释下）
10.    Set rs =objconn.execute(strsql)                                           （解释下）
11.    strSQL="select*from"&tablename                                        （解释下）
12.    Set rs=objconn.execute(strsql)                                           （解释下）
13.    response.write" SQL Query的内容:"&strSQL
14.    if not rs.eof then                                                                   （解释下）
15.    response.write"<Table Border=1>"
16.    rs.movefirst                                                                         （解释下）
17.    fdcount=rs.fields.count                                                          （解释下）
18.    response.write"<tr>"
19.    for i=o to fdcount -1
20.    response.write "<tr><font size=2>"&rs.fields(i).name&"</font></td>"
21.    next
22.    response.write "</tr>"
23.    do while not rs.eof                                                                   （解释下）
24.    response"<tr>"
25.    for i =0 to fdcount-1
26.    response.write"<td><font size=2>"&rs.fields(i).value&"</font></td>"
27.    next
28.    response.write"</tr>"
29.    rs.movenext                                                                               （解释下）
30.    loop
31.    response.write"</table>"
32.    else
33.    response.write"没有相符的信息可供读取！"
34.    end if
35.    OBJconn.close
36.    set rs=Nothing
37.    set OBJConn=Nothing
38.    end funcition
39.    %>

（以上有标注的行，大侠帮我解释下，小弟在这跪谢了）
第5行的strDSN是什么东西？str打头的是什么意思？
我还问下，要看懂这些函数，要用什么样的书，比较好？

收藏0

使用道具举报

帅精灵

2^#

发表于 2010-1-18 04:38:46 | 只看该作者

第5行的strDSN是连接数据库时的一个变量，str打头不过是为了好记而已了

第七行追加一条记录
7、8、9应该是写在一行吧？
8、9从FORM集合得到数据
10 创建recordset 对象、包含数据的游标"rs"
11 把要查询的语句付值给strsql
12 同10
13 写出SQL Query
15 写出html 标签 "<Table Border=1>"
16 指针移到第一条记录
17 给变量赋值 fields的数量
18 写出HTML 标签<tr>
23 循还语句：当不是最后一条记录的时候运行到30句循还，当是最后一条记录时退出循还
29 移动到下一条记录

基本上就是这样的，多看一下ASP方面的书先要熟悉ASP的几大对像，基本上就都能看明白了，然后可以再深一点学

回复支持反对

使用道具举报

魅力ぉ小猪ぎ

3^#

发表于 2010-1-18 04:38:50 | 只看该作者

1.       <%
2.       function Inquery
3.       tablename="产品类别"
4.    OBJCONN=SERVER.CreateObject("ADODB.Connection")
5.    strDSN="DSN=Trate;uid=test;pwd=test1"　　'这里str开头的变量基本都是string类型的，使用str开头于其他变量以示区别
6.    OBJConn.open strDSN　　　　　　　　　　'strDSN作为OBJCONN这个ADODB.Connection对象的连接串，用来连接DSN中指定的数据库
7.    strSQL="Insert Into"&Tablename&"Value("&_" ' "          'strSQL赋值为一个较长的SQL语句字符串，每小段使用&联接，这里是１个插入操作
8.    &Request.FORM("NewClassifyNo")&" ', "&_                   'Request.FORM("NewClassifyNo")的值是提交的表单中id/name为NewClassifyNo对象的值
9.    " ' "& Request.Form("Newclassifyinfo")&" ' ")"                'Request.Form("Newclassifyinfo")　同上道理
10.    Set rs =objconn.execute(strsql)    '运行strSQL这句SQL语句并返回给rs对象，这里返回是否正确执行，其实可以仅仅写objconn.execute(strsql)
11.    strSQL="select*from"&tablename                                  '重新负值strSQL为１个查询操作的SQL语句
12.    Set rs=objconn.execute(strsql)                                     '运行strSQL这句SQL语句并返回给rs对象，查询语句返回ADODB.RecordSet对象
13.    response.write" SQL Query的内容:"&strSQL
14.    if not rs.eof then                                                             '判断如果对象rs的eof属性不为True时则进行如下操作
15.    response.write"<Table Border=1>"
16.    rs.movefirst                                                                      '使用rs对象的MoveFirst方法，记录游标移动到第一个，以便后续操作
17.    fdcount=rs.fields.count                                                    '将rs对象的field元素的count属性府值给fdcount，既是　字段数量
18.    response.write"<tr>"
19.    for i=o to fdcount -1
20.    response.write "<tr><font size=2>"&rs.fields(i).name&"</font></td>"
21.    next
22.    response.write "</tr>"
23.    do while not rs.eof                                                                   '循环执行循环体直到　rs对象eof属性为True
24.    response"<tr>"
25.    for i =0 to fdcount-1
26.    response.write"<td><font size=2>"&rs.fields(i).value&"</font></td>"
27.    next
28.    response.write"</tr>"
29.    rs.movenext                                                                               '使用rs对象的MoveNext方法，记录游标后移１个，指向下一个记录以便后续操作

30.    loop　　　　　　　　　　　　　　　　　　　　　　　　　　　'对应do while 结构的结束
31.    response.write"</table>"
32.    else
33.    response.write"没有相符的信息可供读取！"
34.    end if
35.    OBJconn.close　　'关闭数据库连接
36.    set rs=Nothing　　'销毁对象
37.    set OBJConn=Nothing
38.    end funcition
39.    %>

'不对的地方请包含，最近比较忙，时间仓促

看书，就看  VB　VBScript的　就可以了，　ASP　到底就是这些了

我当时刚使用ASP的时候，VB也不怎么用，就看　VBScript　的　微软手册，后来搞了１个ASP　的手册，就够了，不用多