如何在asp程序中把用ODBC连接的程序转换成ADO连接的？急！急！急！急！急！急！（100分回报）~~~~~~~ ( 积分: 100 )

Mary_Mary_2005 · 2005-09-15

高手们好！：）
小女子在这里有礼了。！：）我的asp的作业明天就要交了。555555555555555我只会用odbc连接数据库在asp中，可是老师一定要让ado连接。我已经做好了一个asp的odbc连接数据库的程序。哪位高手能帮帮小女子呢？谢谢了。有意者请加我的QQ详谈，谢谢。(QQ:398697872)
本人在线等待高手。：）

Mary_Mary_2005 · 2005-09-15

高手们好！：）
小女子在这里有礼了。！：）我的asp的作业明天就要交了。555555555555555我只会用odbc连接数据库在asp中，可是老师一定要让ado连接。我已经做好了一个asp的odbc连接数据库的程序。哪位高手能帮帮小女子呢？谢谢了。有意者请加我的QQ详谈，谢谢。(QQ:398697872)
本人在线等待高手。：）

chenybin · 2005-09-15

把连接串写出来，很容易改的，只要放ADODB.Connection的那个串就可以了
参考
http://www.topying.com/showfine.asp?id=59
－－－－－－－－－－－－－－－－－－－－－－
首先当然是SQL server 了，现在SQL server 的市场越来越大了
<%
function OpenConn(userid,pass,servername)
connstring="Provider=SQLOLEDB.1;Password="
&
pass &
";Persist Security Info=True;User ID="
&
userid &";Data Source="
&
servername
set conn=server.createobject("ADODB.Connection&quot

conn.open connstring
set OpenConn=conn
end function
%>
说到连接数据库，当然不能忘记Oracle
<%
function OpenConn(userid,pass,servername)
connstring="Provider=MSDAORA.1;Password="
&
pass &";User ID="
&
userid &
";Persist Security Info=True"
set conn=server.createobject("ADODB.Connection&quot

conn.open connstring
set OpenConn=conn
end function
%>
当然还有 Access,ODBC 等等，我就只把连接字符串放到这里，自己慢慢研究吧
connstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
&
server.mappath("test.mdb&quot

&";Persist Security Info=False"
//ACCESS
connstring="Provider=MSDASQL.1;Persist Security Info=False;Data Source=dsn"

xianguo · 2005-09-15

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR"
Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<P>&nbsp;</P>
<%
dim mysql
dim NewUserName,NewUserPWD,NewUserNickName,NewUserSex,NewQuestion,NewAnswer,NewEmail
NewUserName=Request.Form("UserName&quot

NewUserPWD=Request.Form("pwd1&quot

NewUserNickName=Request.Form("NickName&quot

NewUserSex=Request.Form("UserSex&quot

NewEmail=Request.Form("Email&quot

NewQuestion=Request.Form("Question&quot

NewAnswer=Request.Form("Answer&quot

set myrecord=server.CreateObject ("ADODB.Recordset&quot

mysql="SELECT * FROM UserInfo WHERE NickName='"
&
NewUserName &
"'"
myrecord.Open mysql,"DSN=ChatRoom",1,3
if (instr(NewUserNickName, "
&quot

> 0) then
Response.Write "昵称中含有非法字符!，请<a href='RegUser.asp'>重新注册</a>"
else

If ((instr(NewEmail, "@&quot

= 0) or ((instr(NewEmail, ".&quot

= 0))) then
'If ( 1 <> 1) then
Response.Write "E-mail地址非法,其格式为 demo@china.com(其中demo为用户名),请<a href='RegUser.asp'>重新注册</a>"
else

if not myrecord.BOF then
Response.Write "对不起！该用户名已经存在，请<a href='RegUser.asp'>重新注册</a>"
else
myrecord.AddNew
myrecord("UserName&quot

=NewUserName
myrecord("UserPass&quot

=NewUserPWD
myrecord("NickName&quot

=NewUserNickName
myrecord("UserSex&quot

=NewUserSex
myrecord("UserQues&quot

=NewQuestion
myrecord("Email&quot

=NewEmail
myrecord("UserAns&quot

=NewAnswer
myrecord("LogInTime&quot

=Now()
myrecord("IPAdd&quot

=Request.ServerVariables("REMOTE_ADDR&quot

myrecord.Update
Response.Write ("恭喜你，你已经注册成功，在得到系统认证后，你可以<a href='Login.asp'>进入聊天室</a>&quot

End If
End If
End If
myrecord.Close
Set myrecord = nothing
%>
</BODY>
</HTML>
<HTML>
<BODY onload="">
<script language=vbscript>
</script>
</BODY>
</HTML>

Mary_Mary_2005 · 2005-09-15

接受答案了.

如何在asp程序中把用ODBC连接的程序转换成ADO连接的？急！急！急！急！急！急！（100分回报）~~~~~~~ ( 积分: 100 )

Mary_Mary_2005

Unregistered / Unconfirmed

Mary_Mary_2005

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

xianguo

Unregistered / Unconfirmed

Mary_Mary_2005

Unregistered / Unconfirmed

Similar threads