复制代码 代码如下:<%@LANGUAGE="VBSCRIPT"%> <% option explicit dim startime,endtime,conn,strCon,db startime=timer() Dim strSQLServerName Dim strSQLDBUserName Dim strSQLDBPassword Dim strSQLDBName '请填写数据库具体参数 '----------------------------------------------------------------------------------------------- strSQLServerName = "127.0.0.1" '服务器名称或地址 strSQLDBUserName = "sa" '数据库帐号 strSQLDBPassword = "123" '数据库密码 strSQLDBName = "bbsbak" '数据库名称 '----------------------------------------------------------------------------------------------- 'SQL Server OLE Driver Set conn = Server.CreateObject("ADODB.Connection") strCon = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";" conn.Open strCon function CloseDatabase Conn.close Set conn = Nothing End Function %>
推荐阅读
Discuz!NT 论坛整合ASP程序论坛教程
复制代码 代码如下:登陆时记录cookies页面代码 <!--#include file="md5.asp"--> //32位md5加密文件,一定得调用,该文件到处有,我就不提供了 <% dim Username,Password,Question,Answer,Expires,Verify Username=rep>>>详细阅读
本文标题:动网论坛的asp 数据库连接代码
地址:http://www.17bianji.com/kaifa2/ASP/32062.html
1/2 1