|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
无法实现跨操作系统的应用。当然这也是微软的理由之一,只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP,ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的;数据|数据库|数据库毗连|数据库毗连ASP毗连SQLServer2000数据库例程
--------------------------------------------------------------------------------
<%
Dimmode
mode=request.form("text4")
ifmode=1then
name=request.form("text1")
age=request.form("text2")
addr=request.form("text3")
ifnotisnumeric(age)thenresponse.write"agemustbenumber!<ahref=javascript:history.go(-1)>tryagain</a>":response.end
age=clng(age)
endif
********************************************************************
与SQLServer2000有关的毗连
能够参照它创建您的数据库毗连
********************************************************************
敬请注重:
请依据情形设置StrServer,StrUid,StrSapwd,StrDbName四个参数
DimStrServer,StrUid,StrSaPwd,StrDbName
StrServer="(local)"数据库服务器名
StrUid="testuser"您的登录帐号
StrSaPwd="12345"您的登录暗码
StrDbName="db_test_com"您的数据库称号
DimConn数据库毗连
DimStrDSN数据库毗连字符串
DimRs命令字符串
StrDSN="driver={SQLserver};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
创建和数据库master的毗连
setConn=Server.CreateObject("ADODB.Connection")
setRs=Server.CreateObject("ADODB.RecordSet")
Conn.OpenStrDSN
********************************************************************
********************************************************************
Dimstrsql
********************************************************************
读数据库的相干操纵
subreaddb()
strsql="select*fromtest"
rs.openstrsql,conn,1,1
ifrs.EOFthenresponse.write"norecordatall":exitsub
response.write"<tableborder=1>"
response.write"<tr>"
fori=0tors.Fields.Count-1
response.write"<td><fontcolor=blue>"&rs.Fields(i).Name&"</font></td>"
next
response.write"</tr>"
whilenotrs.EOF
response.write"<tr>"
fori=0tors.Fields.Count-1
response.write"<td>"&rs.Fields(i).Value&"</td>"
next
response.write"</tr>"
rs.MoveNext
wend
response.write"</table>"
rs.Close
endsub
********************************************************************
********************************************************************
写数据库的相干操纵
subinsertdata()
strsql="INSERTINTOtest(name,age,addr)VALUES("&name&","&age&","&addr&")"
rs.Openstrsql,conn,1,3
endsub
********************************************************************
ifmode=1then
callinsertdata()
response.write"insertok!"
elseifmode=2then
callreaddb()
endif
开释数据库毗连工具
setrs=nothing
setconn=nothing
%>
<HTML>
<HEAD>
<TITLE></TITLE>
<scriptlanguage=javascript>
functionclickit(flag){
varform1=document.form2
form1.text4.value=flag;
if(flag==1){
if(form1.text1.value==""){
alert("namecantempty!");
returnfalse;
}
if(form1.text2.value==""){
alert("agecantempty!");
returnfalse;
}
if(form1.text3.value==""){
alert("addrcantempty!");
returnfalse;
}
}</p>[1][2]下一页
ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊! |
|