ASP与数据库连接、写入、修改、删除、显示的代码整理
来源:互联网 发布:sql数据库ip地址怎么看 编辑:程序博客网 时间:2024/04/29 10:15
总的来说,一个再大的程序都少不了这几个代码,他们的具体使用的方法,我整理如下:
数据库连接
--------------------------------
MS Access数据库连接
用DSN连接并且没有用户名和密码:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>
用DSN连接并且有用户名和密码:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
%>
用实际的数据库绝对路径连接:
<%
Set conn=Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=e:/yanhang/database.mdb"
conn.Open Strconn
%>
用实际的数据库相对路径连接:
<%
Set conn=Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/database/yanhang.mdb")
conn.Open Strconn
%>
MS SQL Server数据库连接
用DSN连接:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"
%>
不用DSN连接:
<%
Set conn=Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=databasename"
conn.open DSNtemp
%>
FoxPro数据库连接
<%
Set Conn=Server.CreateObject("ADODB.connection")
ConnStr="Driver=Microsoft Visual Foxpro Driver; UID=userID;SourceType=DBC;SourceDB=C:/yanhang/database.dbc"
Conn.Open ConnStr
%>
Oracle数据库连接:
<%
set conn=server.createobject("adodb.connection")
conn.cursorlocation=adUseClient
DSNTemp="Provider=MSDAORA.1;Password=xxxxx;User ID=yanhang;Data Source=xxx.world"
conn.open DSNtemp
%>
数据写入
……………………………………………………………………………………
<!--#include file="common/conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from online"
rs.open sql,conn,3,2
rs.addnew
rs("name")=request("name")
rs("Tel")=request("tel")
rs("fax")=request("fax")
rs("mail")=request("email")
rs("code")=request("zip")
rs("content")=request("contents")
rs("Address")=request("Address")
rs.update
rs.close
%>
<script language="JavaScript">
alert("成功添加!!")
location.href="back.asp"
</script>
数据修改
……………………………………………………………………………………
<%
if request("action")="edit" then '判断是否修改
'取得表单传递的数据
member_name=Trim(Request.Form("member_name"))
member_pwd=Trim(Request.Form("member_pwd"))
question=Trim(Request.Form("question"))
answer=Trim(Request.Form("answer"))
realname=Trim(Request.Form("realname"))
sex=Trim(Request.Form("sex"))
zip=Trim(Request.Form("zip"))
address=Trim(Request.Form("address"))
tel=Trim(Request.Form("tel"))
fax=Trim(Request.Form("fax"))
mobile=Trim(Request.Form("mobile"))
email=Trim(Request.Form("email"))
web=Trim(Request.Form("web"))
vip=request.form("vip")
remark=Trim(Request.Form("remark"))
sql="select * from member where m_id="&m_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("member_name")=member_name
rs("answer")=answer
rs("question")=question
rs("member_pwd")=member_pwd
rs("realname")=realname
rs("sex")=sex
rs("zip")=zip
rs("tel")=tel
rs("mobile")=mobile
rs("fax")=fax
rs("address")=address
rs("email")=email
rs("web")=web
rs("vip")=vip
rs("remark")=remark
rs.update
rs.close
set rs=nothing
call ok("资料修改成功!","edit_member.asp?m_id="&m_id)
end if
%>
数据删除
……………………………………………………………………………………
<%
if Trim(Request.QueryString("action"))="del" then
ID = Trim(Request.QueryString("ID"))
set rs=server.createobject("adodb.recordset")
sql="select * from pay where ID ="&ID
rs.open sql,conn,1,3
rs.delete
rs.close
end if
%>
数据显示
……………………………………………………………………………………
<%
Lei="行业资讯" '设置显示信息类别
set rs=server.CreateObject("adodb.Recordset")
sql="Select top 20 * from News where Lei <> '"&Lei&"' order by ID desc"
rs.open sql,conn,1,1
if rs.eof then '判断数据库内有无信息,防止读取错误
%>
暂无信息!
<%
else
do while not rc.eof
%>
<%if len(rs("Title")) > 10 then Response.write left(rs("Title"),10)&"..." else Response.write rs("Title") end if%>
<%
'循环显示数据
rc.movenext
loop
rc.close
set rc=nothing
end if%>
数据库连接
--------------------------------
MS Access数据库连接
用DSN连接并且没有用户名和密码:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>
用DSN连接并且有用户名和密码:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
%>
用实际的数据库绝对路径连接:
<%
Set conn=Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=e:/yanhang/database.mdb"
conn.Open Strconn
%>
用实际的数据库相对路径连接:
<%
Set conn=Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/database/yanhang.mdb")
conn.Open Strconn
%>
MS SQL Server数据库连接
用DSN连接:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"
%>
不用DSN连接:
<%
Set conn=Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=databasename"
conn.open DSNtemp
%>
FoxPro数据库连接
<%
Set Conn=Server.CreateObject("ADODB.connection")
ConnStr="Driver=Microsoft Visual Foxpro Driver; UID=userID;SourceType=DBC;SourceDB=C:/yanhang/database.dbc"
Conn.Open ConnStr
%>
Oracle数据库连接:
<%
set conn=server.createobject("adodb.connection")
conn.cursorlocation=adUseClient
DSNTemp="Provider=MSDAORA.1;Password=xxxxx;User ID=yanhang;Data Source=xxx.world"
conn.open DSNtemp
%>
数据写入
……………………………………………………………………………………
<!--#include file="common/conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from online"
rs.open sql,conn,3,2
rs.addnew
rs("name")=request("name")
rs("Tel")=request("tel")
rs("fax")=request("fax")
rs("mail")=request("email")
rs("code")=request("zip")
rs("content")=request("contents")
rs("Address")=request("Address")
rs.update
rs.close
%>
<script language="JavaScript">
alert("成功添加!!")
location.href="back.asp"
</script>
数据修改
……………………………………………………………………………………
<%
if request("action")="edit" then '判断是否修改
'取得表单传递的数据
member_name=Trim(Request.Form("member_name"))
member_pwd=Trim(Request.Form("member_pwd"))
question=Trim(Request.Form("question"))
answer=Trim(Request.Form("answer"))
realname=Trim(Request.Form("realname"))
sex=Trim(Request.Form("sex"))
zip=Trim(Request.Form("zip"))
address=Trim(Request.Form("address"))
tel=Trim(Request.Form("tel"))
fax=Trim(Request.Form("fax"))
mobile=Trim(Request.Form("mobile"))
email=Trim(Request.Form("email"))
web=Trim(Request.Form("web"))
vip=request.form("vip")
remark=Trim(Request.Form("remark"))
sql="select * from member where m_id="&m_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("member_name")=member_name
rs("answer")=answer
rs("question")=question
rs("member_pwd")=member_pwd
rs("realname")=realname
rs("sex")=sex
rs("zip")=zip
rs("tel")=tel
rs("mobile")=mobile
rs("fax")=fax
rs("address")=address
rs("email")=email
rs("web")=web
rs("vip")=vip
rs("remark")=remark
rs.update
rs.close
set rs=nothing
call ok("资料修改成功!","edit_member.asp?m_id="&m_id)
end if
%>
数据删除
……………………………………………………………………………………
<%
if Trim(Request.QueryString("action"))="del" then
ID = Trim(Request.QueryString("ID"))
set rs=server.createobject("adodb.recordset")
sql="select * from pay where ID ="&ID
rs.open sql,conn,1,3
rs.delete
rs.close
end if
%>
数据显示
……………………………………………………………………………………
<%
Lei="行业资讯" '设置显示信息类别
set rs=server.CreateObject("adodb.Recordset")
sql="Select top 20 * from News where Lei <> '"&Lei&"' order by ID desc"
rs.open sql,conn,1,1
if rs.eof then '判断数据库内有无信息,防止读取错误
%>
暂无信息!
<%
else
do while not rc.eof
%>
<%if len(rs("Title")) > 10 then Response.write left(rs("Title"),10)&"..." else Response.write rs("Title") end if%>
<%
'循环显示数据
rc.movenext
loop
rc.close
set rc=nothing
end if%>
- ASP与数据库连接、写入、修改、删除、显示的代码整理
- ASP与数据库-连接、写入、修改、删除、显示代码
- asp.net cookies 读取、写入、修改、删除
- ASP删除与批量删除的代码
- ASP与SQL数据库连接代码!
- ASP与SQL数据库连接代码
- ASP与SQL数据库连接代码
- ASP与SQL数据库连接代码
- ASP与SQL数据库连接代码
- 【转载】 [SAS与常用数据库连接代码整理]
- ASP读取、添加、修改、删除数据库的代码
- 文件的写入与删除
- asp怎样与SQL数据库连接?代码是?
- ASP.NET cookie 操作详解cookie 写入、读取、修改、删除
- ASP.NET cookie 操作详解cookie 写入、读取、修改、删除
- ASP.NET cookie 操作详解|cookie 写入、读取、修改、删除
- 文件的创建,读取,写入,修改,删除
- xml的写入,显示和删除
- 下一班的幸福,几点开?
- Windows Product Key算法(DELPHI)
- VC中利用多线程技术实现线程之间的通信
- GPS串口读取类(CE适用)
- 如何用在ASP.NET中写入事件日志
- ASP与数据库连接、写入、修改、删除、显示的代码整理
- 接了个项目
- PC机与下位单片机异步串行通信[摘]
- RosAsm 2.035c by René Tournois a.k.a. Betov
- 一些常用的ASP代码(一)
- Learning, working and living in Hwadee(华迪实习日志)
- spoolsv.exe占用CPU 率高?
- 熬夜常识
- 在IIS6.0中设计(应用程序/八字节数据流)的MIME类型--bazs.cert 在IIS6.0中无法下载的问题