初学者求教：asp 读取数据 和写入数据 代码 转为DLL 的代码
小弟分少，但已经尽力，还望大侠指教 ，万分感激！从表单中获取提交的值：
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组件中，生成时，结果，提示，
"&www_data&" " '获得MS SQL数据库的表名这个值也是表单传过来的 在vb6中&连接字符串的符号前后要留一个空格
大哥你看看，我把这句，写成这样
sql="select name,fenlei from qqqweb_url where name='" & foml_name & "' "
和这样，
sql = db.Execute("select name,fenlei from qqqweb_url where name='" & foml_name & "' ")
分别试过。也还是同样的提示，错误 ，
还是这句的错，
我又改成了这样，
sql = select name, fenlei from qqqweb_url where name = '" & foml_name & "' "
提示，缺少表达式！ 少了个上引号当然不行了。
你在一楼说提示到底是提示什么啊？？？ 所言及是，这个问题，
可是现在又出现了成这样了，
从表单中获取提交值的话，很不合理，而直接生成变量才行：
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 代码中，
修正一下，给个完整代码，
实在是麻烦您了 所言及是，这个问题，
可是现在又出现了成这样了，
从表单中获取提交值的话，很不合理，而直接生成变量才行：
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 代码中，
修正一下，给个完整代码，
实在是麻烦您了
别徒劳了，行不通的。首先一点在vb中没有Response这个方法，编译都通过不了，这个只是iis服务端才能解析的。 那大哥，<%=Application("qqqweb")%>
在ASP页上，可以显示，
在VB中，也可以调用，
那如果，有一个当前网页的全局变量，<%=foml_name%> 同样的代码，在ASP 网页中，这样写，
sql = "select id,title from 表名 where moban = " & foml_name
& " order by id desc "
获取，指定用户，在当前表中的所有行，以倒序排列，
这句代码，
难到，就不能要 在 VB 中，实现吗？
补充：VB , 网络编程
