初学者求教: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 , 网络编程