asp 常用代码

	(正版全新)-ASP技术方案宝典（附光盘）
	60.0元

掌握这些代码，asp开发无忧。

1.连接数据库，每种语言都有自己连接数据库的方式，asp是通过ado来连接数据库的。

1.1以下代码是连接access的代码

<%  
'========＝＝＝＝定义变量=========================   
dim conn,db,connstr  
'On Error Resume Next '容错声明   
'================填写数据库具体参数============  
db="liuyan.mdb" '数据库文件位置  
mima="ceshi"  '数据库密码，      如果数据库没有密码，这里的值随便写，一般为空值。注意数据库读写权限  
'===================数据库连接==================   
Set conn = Server.CreateObject("ADODB.Connection")  
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(""&db&"")&";Jet Oledb:database password="&mima&"" 
if err then  
    err.clear  
else 
    conn.open connstr  
'response.Write("数据库连接成功！")  
end if 
'========＝＝＝＝结束程序=========================   
%>  

1.2 连接ms sql的代码：

 <%
Dim dbtype
dbType = "MSSQL"
Dim strConn
strConn = "driver={SQL Server};server=(local);uid=sa;pwd= ;database=数据库名"
Dim db
Set db = Server.CreateObject("ADODB.Connection")
db.Open strConn
%>

2.插入操作1

  H_title = request.Form("H_title")  
  H_sort = request.Form("H_sort")  
  H_font = request.Form("H_font")  
  H_Mood = request.Form("H_Mood")  
  H_Content = request.Form("H_Content")  
  H_uid = session("uid")  
  sql = "insert into H_Bless(UID,H_title,H_Content,H_sort,H_font,H_Mood)" 
  sql = sql&"values("&H_uid&",'"&H_title&"','"&H_Content&"',"&H_sort&","&H_font&","&H_Mood&")" 
  conn.Execute(sql)  
  conn.close  
  set conn = nothing   

3.插入操作2

 dim rs  
 set rs=server.createobject("adodb.recordset")  
 sql="select * from book" 
 rs.open sql,conn,1,3    '打开数据库，进行更改操作  
 rs.addnew     'rs数据库表添加新内容  
 rs("name")=request("title")  
 rs.update    '更新表   
 rs.close    '关闭   

 

4.asp循环

<%   
for i=2 to 6   
%>   
<font size="<%=i%>">   
hello world!   
</font> <br />  
<%   
next   
%>   

5.asp 查询

5.1查询多条记录

<%  
set rs=server.CreateObject("adodb.recordset")  
sql="select * from book" 
rs.open sql,conn,1,1  
if not (rs.eof and rs.bof) then  
do while not rs.eof  
%>  
  <tr>  
    <td><%=rs("name")%></td>  
    <td><a href="fledit.asp?id=<%=rs(" mce_href="fledit.asp?id=<%=rs("id")%>">修改</a></td>  
    <td><a href="fldel.asp?id=<%=rs(" mce_href="fldel.asp?id=<%=rs("id")%>">删除</a></td>  
  </tr>  
<%  
rs.movenext  
loop  
end if 
%>   

5.2查询一条记录

<%
Dim rs
Set rs = Server.CreateObject("ADODB.recordset")
sql = "select  *  from xinwen where id="&request("id")
rs.open sql,db,1,1
if rs.eof then   
else   
%>
<%=rs("neirong")%>  
<%
   end if
   rs.close
   set rs=nothing
%>

6.操作成功后跳转代码：

Response.Write("<script type="text/javascript">  
alert('添加成功！');window.location='insbook.asp' 
</script>")  
response.End()

7.数据修改

<!--#include file="conn.asp"-->    '调用外部链接数据库asp程序
<%
if request("栏目名称")="值" then '判断是否修改
'取得表单传递的数据
member_name=Trim(Request.Form("member_name"))
.................
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("remark")=remark
rs.update
rs.close
set rs=nothing
end if
%>

8.数据删除

<!--#include file="conn.asp"-->    '调用外部链接数据库asp程序
<%
if Trim(Request.form("action"))="del" then
ID = Trim(Request.form("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
%>