快速登录:  
为何选择我们
  • 7年优质服务经验
  • 10万用户的共同选择
  • 更低的价格更好的服务
  • CNNIC四星级认证服务商
  • 拥有正规经营许可证(ICP)
  • 先进的解析技术10分钟生效
  • 6组DNS负载均衡更快更稳定
  虚拟主机域名注册-常见问题虚拟主机问题 → 虚拟主机问题


ASP连接access数据库例程
作者:
<%
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!<a href=javascript:history.go(-1)>try again</a>":response.end
age=clng(age)
end if '********************************************************************
' 与AccessDB相关的连接信息
' 可以参照它建立您的数据库连接
'********************************************************************
Dim conn,rs,dbpath
Set conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
dbpath=Server.MapPath("rwdata/db_test_com.mdb")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&dbpath
'********************************************************************
'********************************************************************

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 "<table border=1>"
response.write "<tr>"
for i=0 to rs.Fields.Count-1
response.write "<td><font color=blue>"&rs.Fields(i).Name&"</font></td>"
next
response.write "</tr>"
while not rs.EOF
response.write "<tr>"
for i=0 to rs.Fields.Count-1
response.write "<td>"&rs.Fields(i).value&"</td>"
next
response.write "</tr>"
rs.MoveNext
wend
response.write "</table>"
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
%>
<HTML>
<HEAD>
<TITLE></TITLE>
<script language=javascript>
function clickit(flag){
var form1=document.form2
form1.text4.value=flag;

if (flag==1){
if (form1.text1.value==""){
alert("name cant empty!");
return false;
}
if (form1.text2.value==""){
alert("age cant empty!");
return false;
}
if (form1.text3.value==""){
alert("addr cant empty!");
return false;
}

}
form1.submit();
return true;
}
</script>
</HEAD>
<BODY>
<form method=post name=form2>
name:<INPUT type="text" id=text1 name=text1 size=12>
age:<INPUT type="text" id=text2 name=text2 size=12>
city:<INPUT type="text" id=text3 name=text3 size=12><br>
<INPUT type="hidden" id=text4 name=text4>
<INPUT type="button" value="write" id=button1 name=button1 onclick="clickit(1)">
<INPUT type="button" value="read" id=button2 name=button2 onclick="clickit(2)">
</form>
</BODY>
</HTML>



来源:
阅读:12639
日期:2006-07-01

【 双击滚屏 】 【 推荐朋友 】 【 收藏 】 【 打印 】 【 关闭 】 【 字体: 】 
上一篇:如何保护您的域名不被抢注
下一篇:计数器、留言板是免费的吗?
  >> 相关文章
 
CNNIC四星级注册服务机构证书营业执照网上警察 联系在线客服扬航科技官方QQ有问必答 代理授权证书
西部数码电信业务经营许可证:川B1.B2-20080058号
扬航科技网站备案号:蜀ICP备05003556号-1

扬航公告:扬航科技是西部数码绵阳地区钻石代理!专业提供西部数码域名注册、虚拟主机、VPS主机、云主机、成品网站、企业邮局等租用;购买流程和西部数码官网流程一样,全部由系统自动完成,在线支付、在线购买;虚拟主机、企业邮局、数据库一律西部数码官方8折,VPS主机、云主机一律西部数码官方9折。
扬航声明:扬航科技所有主机100%均为西部数码官方正品,假一赔十!购买之后,您可以随时要求转移到您在西部数码官方网站的账号下。认准网址www.yaha.cc,谨防假冒!
本站关键词:西部数码代理 西部数码代理商 西部数码分销商 西部数码四川代理 西部数码绵阳代理 西部数码打折 港台主机 海外主机 扬航科技 绵阳建站 网站建设   
展开