初学者求教：asp 读取数据 和写入数据 代码 转为DLL 的代码

Question

小弟分少，但已经尽力，还望大侠指教 ，万分感激！从表单中获取提交的值： foml_name=Request.Form("foml_name") '用户名
foml_remen=Request.Form("foml_remen") '点击次数读取代码如下： Set weBrs = Server.CreateObject("ADODB.Recordset") 
sql="select name,fenlei from qqqweb_url where name='"&foml_name&"' " 
weBrs.open sql,conn,1,1 
if (weBrs.eof and weBrs.bof) then  
response.write  "没有这个用户名"
response.End '
else
fenlei=weBrs("fenlei")  ' 将这个表中的值，传给这个变量，然后下面写入时用
end if 
weBrs.close '
set weBrs=nothing  写入代码如下： Set rs = Server.CreateObject("ADODB.Recordset") '
sql2="select * from "&www_data&" "  '获得MS SQL数据库的表名
rs.open sql2,conn,1,3  '
rs.addnew     '
rs("name")=foml_name '写入第一个
rs("fenlei")=fenlei '写入第二个值
rs("remen")=foml_remen  '写入第三个值
rs.update   '
rs.close '
set rs=nothing  
response.write  "录入完成"
response.End '我复制这些代码到DLL组件中，生成时，结果，提示，

Answer 1

"&www_data&" " '获得MS SQL数据库的表名
这个值也是表单传过来的

Answer 2

在vb6中&连接字符串的符号前后要留一个空格

Answer 3

大哥你看看，我把这句，写成这样sql="select name,fenlei from qqqweb_url where name='" & foml_name & "' " 和这样，    sql = db.Execute("select name,fenlei from qqqweb_url where name='" & foml_name & "' ")
分别试过。也还是同样的提示，错误 ，还是这句的错，

Answer 4

我又改成了这样，    sql = select name, fenlei from qqqweb_url where name = '" & foml_name & "' "提示，缺少表达式！

Answer 5

所言及是，这个问题，可是现在又出现了成这样了，从表单中获取提交值的话，很不合理，而直接生成变量才行：foml_name=Request.Form("foml_name") '用户名
foml_remen=Request.Form("foml_remen") '点击次数这两个，现在，是从，ASP 网页中获取变量了，我ASP 页面这样写，Set qqqweb=Server.CreateObject("qqqwebDll.qqqweb")
qqqweb.foml_name = url
qqqweb.foml_remen = name
set qqqweb=nothing 不管怎么做，都不成功，从今天中午，搞到了，现在，已经两点了，还望大哥，再帮我一把，小弟初学，再谢谢了DLL 里面，我是这样写的，Public Sub lanmu()
Dim webrs, sql, i, foml_name, foml_remen
Set webrs = Server.CreateObject("adodb.recordset")
sql = "select id,title from " & foml_name & "  where moban = " & foml_remen
 & " order by id desc "
webrs.Open sql, Application("qqqweb"), 1, 1    For i = 1 To 10
    If webrs.EOF Then Exit For
        Response.Write (" & Mid(webrs("title"), 1, 20) & ")
    webrs.MoveNext
    Next
webrs.Close
Set webrs = Nothing
End Sub如果大哥不是太忙，还望能分别在，ASP页面，和DLL 代码中，修正一下，给个完整代码，  实在是麻烦您了

Answer 6

所言及是，这个问题，可是现在又出现了成这样了，从表单中获取提交值的话，很不合理，而直接生成变量才行：foml_name=Request.Form("foml_name") '用户名
foml_remen=Request.Form("foml_remen") '点击次数这两个，现在，是从，ASP 网页中获取变量了，我ASP 页面这样写，Set qqqweb=Server.CreateObject("qqqwebDll.qqqweb")
qqqweb.foml_name = url
qqqweb.foml_remen = name
set qqqweb=nothing 不管怎么做，都不成功，从今天中午，搞到了，现在，已经两点了，还望大哥，再帮我一把，小弟初学，再谢谢了DLL 里面，我是这样写的，Public Sub lanmu()
Dim webrs, sql, i, foml_name, foml_remen
Set webrs = Server.CreateObject("adodb.recordset")
sql = "select id,title from " & foml_name & "  where moban = " & foml_remen
 & " order by id desc "
webrs.Open sql, Application("qqqweb"), 1, 1    For i = 1 To 10
    If webrs.EOF Then Exit For
        Response.Write (" & Mid(webrs("title"), 1, 20) & ")
    webrs.MoveNext
    Next
webrs.Close
Set webrs = Nothing
End Sub如果大哥不是太忙，还望能分别在，ASP页面，和DLL 代码中，修正一下，给个完整代码，  实在是麻烦您了

Answer 7

别徒劳了，行不通的。首先一点在vb中没有Response这个方法，编译都通过不了，这个只是iis服务端才能解析的。

Answer 8

那大哥，<%=Application("qqqweb")%>
在ASP页上，可以显示，
在VB中，也可以调用，
那如果，有一个当前网页的全局变量，<%=foml_name%> 同样的代码，在ASP 网页中，这样写，sql = "select id,title from 表名 where moban = " & foml_name
 & " order by id desc "
 获取，指定用户，在当前表中的所有行，以倒序排列，这句代码，
难到，就不能要  在  VB 中，实现吗？