★Asp.net连接SQL Server2000
数据库例程★
--------------------------------------------------------------------------------
<%
Dim mode
mode=request.form("text4")
if mode=1 then
name=request.form("text1")
age=request.form("text2")
addr=request.form("text3")
if not isnumeric(age) then response.write "age must be number!
try again":response.end
age=clng(age)
end if
';********************************************************************
'; 与SQL Server2000有关的连接
'; 可以参照它建立您的数据库连接
';********************************************************************
';敬请注意：
';请根据情况配置StrServer,StrUid,StrSapwd,StrDbName四个参数
Dim StrServer,StrUid,StrSaPwd,StrDbName
StrServer="(local)" ';数据库服务器名
StrUid="testuser" ';您的登录帐号
StrSaPwd="12345" ';您的登录密码
StrDbName="db_test_com" ';您的数据库名称
Dim Conn ';数据库连接
Dim StrDSN ';数据库连接字符串
Dim Rs ';命令字符串
StrDSN="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
';建立和数据库master的连接
set Conn = Server.CreateObject("ADODB.Connection")
set Rs=Server.CreateObject("ADODB.RecordSet")
Conn.Open StrDSN
';********************************************************************
';********************************************************************
Dim strsql
';********************************************************************
'; 读数据库的相关操作
sub readdb()
strsql="select * from test"
rs.open strsql,conn,1,1
if rs.EOF then response.write "no record at all":exit sub
response.write "
"
response.write ""
for i=0 to rs.Fields.Count-1
response.write "| "&rs.Fields(i).Name&" | "
next
response.write "
"
while not rs.EOF
response.write ""
for i=0 to rs.Fields.Count-1
response.write "| "&rs.Fields(i).Value&" | "
next
response.write "
"
rs.MoveNext
wend
response.write "
"
rs.Close
end sub
';********************************************************************
';********************************************************************
'; 写数据库的相关操作
sub insertdata()
strsql="INSERT INTO test(name,age,addr) VALUES(';"&name&"';,"&age&",';"&addr&"';)"
rs.Open strsql,conn,1,3
end sub
';********************************************************************
if mode=1 then
call insertdata()
response.write "insert ok!"
elseif mode=2 then
call readdb()
end if
';释放数据库连接对象
set rs=nothing
set conn=nothing
%>
经笔者的使用测试，他提供的ASP.NET 空间性能非常的稳定，版本也会定期的更新升级! Asp.net虚拟主机的服务提供商中，时代互联（www.now.net.cn) 是行业内最早开始提供asp.net 虚拟主机，他们也是 CNNIC ICANN 双认证的域名注册商。产品功能已经非常完善 ，特别提一下几个特有用的功能：
1、数据库自动备份，并可提供7次不同时间的数据，可见可取！
演示点击：http://www.now.net.cn/support/host/db_backup.net?PHPSESSID=cbd1d431512899e2ba7d5db7638e847c
2.一个空间可绑定多个域名，虚拟主机智能同步子网站 ！
演示点击 ：http://www.now.net.cn/support/host/subhost.net?PHPSESSID=cbd1d431512899e2ba7d5db7638e847c
3.功能超强，使用容易的虚拟主机控制中心！
功能演示 ：http://www.now.net.cn/support/host/demo.net?PHPSESSID=cbd1d431512899e2ba7d5db7638e847c
4. 免费配送高级空间访问统计系统！访问来源统计，可以完全了解哪里网站过来的IP ，跟踪
广告效果！ 访问来源统计，让你了解哪些页面被访问最多，可以帮助你有效优化访问大的页面 ！演示点击：http://www.now.net.cn/support/host/demo_flowmeter.php
时代互联-全球免费
咨询电话:http://www.now.net.cn/customer/moreline.net(很方便的)
Asp.net空间购买方法：http://www.now.net.cn/host
QQ：168343926 188092185 可以随时联系 聯系電話：0756-2623870
