Asp数据库常用代码

由于长时间没有使用asp数据库编程，使得好多代码遗忘，所以整理出来，用来不断提醒自己。
删除(Delete)代码：
<%
dim id,strsql
id=request.querystring("id")
strsql="delete from log where id="&id
conn.execute(strsql)
response.write("删除成功")
%>

更新(Update)代码
<%
dim a,b,c,id
iid=request.querystring("iid")
a=request.form("a") ''a,b,c是表单里对应的text的name
b=request.form("b")
c=request.form("c")

strsql="select * from tablename where id="&iid '在这要注意id和iid，id是表的列名
set rs=server.CreateObject("adodb.recordset")
rs.open strsql,db,0,2

rs("a")=a
rs("b")=b
rs("c")=c

rs.update
rs.close
set rs=nothing
response.Write("修改成功")
%>

或(or)

<%

dim ad_name,ad_pass,siteurl
ad_name=request.Form("ad_name")
ad_pass=request.Form("ad_pass")
siteurl=request.Form("siteurl")

strsql="update bloginfo set ad_name='"&ad_name&"',siteurl='"&siteurl&"'"
if ad_pass<>"" Then
strsql=strsql&",ad_pass='"&ad_pass&"'"
End If

db.execute(strsql)
response.write("操作成功")
response.end

%>

插入(insert)代码
<%

%>

添加(add)代码
<%
Dim cmttitle,cmtcontent,username,userpass,rs,parentid,strsql,cmtid

cmtid=request.querystring("id")
cmttitle=request.Form("cmttitle")
username=request.Form("username")
userpass=request.Form("userpass")
cmtcontent=request.Form("Body")

strsql="select * from comment"
Set rs=server.CreateObject("adodb.recordset")
rs.open strsql,db,1,2
rs.addnew
rs("cmttitle")=cmttitle
rs("username")=username
rs("addtime")=now()
If userpass<>"" Then
rs("userpass")=userpass
End If
rs.update
%>

显示(show)代码

<%
dim strsql,rs,i
i=0
strsql="select * from class"
set rs=db.execute(strsql)
%>
<center>
<form name="form1" method="post" action="class.asp?action=change">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
<tr>
<th colspan="5" class="topbg"><div align="center">日志分类</div></th>
</tr>
<tr>
<td class="tdbg" width="168"><div align="center">分类名称</div></td>
<td class="tdbg" width="103"><div align="center">分类类型</div></td>
<td class="tdbg" width="215"><div align="center">转向地址</div></td>
<td class="tdbg" width="111"><div align="center">序号</div></td>
<td class="tdbg" width="111"><div align="center">操作</div></td>
</tr>
<%do while not rs.eof%>
<tr>
<td class="tdbg"><div align="center"><input id="<%=i%>" name="<%=i%>" type="hidden" value="<%=rs("id")%>">
<input name="strclass<%=rs("id")%>" type="text" id="strclass<%=rs("id")%>" value="<%=rs("classx")%>" size="15">
</div></td>
<td class="tdbg"><div align="center">
<input name="classurl<%=rs("id")%>" type="text" id="classurl<%=rs("id")%>" value="<%=rs("classurl")%>">
</div></td>
<td class="tdbg"><div align="center">
<input name="orderx<%=rs("id")%>" type="text" id="orderx<%=rs("id")%>" value="<%=rs("orderx")%>" size="10">
</div></td>
<td class="tdbg"><div align="center"><a href="class.asp?action=del&id=<%=rs("id")%>">删除
</a></div></td>
</tr>
<%rs.movenext
i=i+1
loop%>
<tr>
<td class="tdbg" colspan="5"><div align="center">
<input type="submit" name="Submit" value="提交">
</div></td>
</tr>
</table>
</form>