我想将一个.ASP文件封装为.DLL,可我是菜鸟,下面一段代码转为VB该怎么写?请各路豪杰多多援手,小子不胜感激!!!nameid = request("nameid")
myname = Trim(request("myname"))
myname2 = Trim(request("myname2"))Set rs = server.CreateObject("adodb.recordset")
sql = "select name1,name2 from title1 where nameid=" & nameid
rs.Open sql, conn, 1, 1
If Not rs.EOF Then
name1 = rs("name1")
name2 = rs("name2")
Else
Set rs2 = server.CreateObject("adodb.recordset")
sql = "select name1,name2,time from title1 where (nameid is null)"
rs2.Open sql, conn, 1, 3
rs2.AddNew
rs2("name1") = myname
rs2("name2") = myname2
rs2("time") = Now()
rs2.Updatename1 = rs2("name1")
name2 = rs2("name2")
End If
myname = Trim(request("myname"))
myname2 = Trim(request("myname2"))Set rs = server.CreateObject("adodb.recordset")
sql = "select name1,name2 from title1 where nameid=" & nameid
rs.Open sql, conn, 1, 1
If Not rs.EOF Then
name1 = rs("name1")
name2 = rs("name2")
Else
Set rs2 = server.CreateObject("adodb.recordset")
sql = "select name1,name2,time from title1 where (nameid is null)"
rs2.Open sql, conn, 1, 3
rs2.AddNew
rs2("name1") = myname
rs2("name2") = myname2
rs2("time") = Now()
rs2.Updatename1 = rs2("name1")
name2 = rs2("name2")
End If
datasource = "driver={sql server};server=myserver;uid=sa;pwd=111111;database=mydate"
End Function经测试没有问题
//nameid = request("nameid")
这样的
vb中没有提供request函数,这个没法改,不过你可以变通一下解决,这句的作用就是为变量赋值类似
//Set rs = server.CreateObject("adodb.recordset")
这样的改为:
Set rs = CreateObject("adodb.recordset")其它的不用改
Public Function datasource() As string
datasource = "driver={sql server};server=myserver;uid=sa;pwd=111111;database=mydate"
End Function
//myname = Trim(request("myname"))
//myname2 = Trim(request("myname2"))
'----------这上面3句话要改,是取得参数,你可以自行从form中间传递过来//Set rs = server.CreateObject("adodb.recordset")
'这句改成定义,比如dim rs as new adodb.recordset
sql = "select name1,name2 from title1 where nameid=" & nameid
rs.Open sql, conn, 1, 1
If Not rs.EOF Then
name1 = rs("name1")
name2 = rs("name2")
Else
//Set rs2 = server.CreateObject("adodb.recordset")
'---这句和上面一样也是定义dim rs2 as new adodb.recordset
sql = "select name1,name2,time from title1 where (nameid is null)"
rs2.Open sql, conn, 1, 3
rs2.AddNew
rs2("name1") = myname
rs2("name2") = myname2
rs2("time") = Now()
rs2.Updatename1 = rs2("name1")
name2 = rs2("name2")
End If
datasource = "driver={sql server};server=myserver;uid=sa;pwd=111111;database=mydate"
End Function经测试没有问题//你拿个adodb控件去连接数据库,确定后会自动生成连接字符串