ladapt 发布留言 2008-7-23 23:23
在发一贴，请老大们，版主们都进来看看，帮帮小弟吧，今天发4个了！
我真的真的就想知道一点：
如何直接用脚本连接到数据库，然后把数据库里的内容显示到网页中，不要设置iis就能完成的，为什么就没有人理解我呢？？？？
天哪！！！！！！！！！！！！！！！
这个是multiple1902版主 提供的代码，虽然意义雷同，但是我想要的还不是这个啊！！
Function ConnectDatabase
'连接数据库
On Error Resume Next
Dim Connstr,SqlDataBase,SqlProvider
SqlDataBase = WScript.ScriptFullName
SqlDataBase = Left(SqlDataBase,InstrRev(SqlDataBase,"\"))
SqlDataBase = SqlDataBase & "db1.mdb"
'Msgbox SqlDataBase
SqlProvider = "Microsoft.Jet.OLEDB.4.0" '驱动程序[ Microsoft.Jet.OLEDB.4.0 Microsoft.ACE.OLEDB.12.0 ]
Connstr="Provider="&SqlProvider&";Data Source=" & SqlDataBase
Set Conn=CreateObject("ADODB.Connection")
ConnectDatabase=True
If Not Err Then
Conn.Open ConnStr
If Err Then
Msgbox "数据库连接出错，请检查连接字串。" & vbCrLf &Err.Source&" ("&Err.Number&")"
Set Conn = Nothing
Err.Clear
ConnectDatabase=False
End If
Else
Err.Clear
ConnectDatabase=False
End If
End Function
我就需要连接数据库方面的语句，其他的一些vb的东西我可以慢慢弄！！
谁能明白我表达的意思啊？？？天哪......... 神一样的你，请快快现身吧！！
.
.
.
.
.
.
.
.
multiple1902 发布留言 2008-7-24 01:17
我很明白你的意思，但是伸手要代码不太雅观。
你先测试我给你的代码，拷到网页里替代你的script的innerHTML，注意WScript.ScriptFullName这里要改一下，具体怎么改要用到你的vbs知识。然后看看网页能不能响应正常的对话，当然这时候结果还没有输出到网页上。
到这里，你应该了解了我在vbs里是怎样定义变量和对象的，对比你的，找出区别。
然后，如何让内容输出到文档中呢？
| 至于输出的部分，使用 document对象的write方法可以向页面上的执行处写入HTML内容。[/quote][quote]如何将内容输出到页面呢？使用document对象的write方法，唯一的参数是要输出的内容。 |
输出到了哪里呢？就是script标记所在的位置。
页: [1]
