conn.execute ("select * from name where id='"&request.QueryString("id")&"'")
如果id是数字,要这样
conn.execute ("select * from name where id="&request.QueryString("id"))
连接数据库代码实例
1,连接数据库代码 文件名称 conn.asp 所有访问数据库的文件都调用此文件
<%
db=\"data/data.mdb\" \'数据库存放目录
on error resume next
set conn=server.createobject(\"adodb.connection\")
conn.open \"driver={microsoft access driver (*.mdb)};dbq=\"&server.mappath(db)
if err then
err.clear
set conn = Nothing
response.write \"数据库连接出错,请检查conn.asp中的连接字符串。\"
response.end
end if
function CloseDB
Conn.Close
set Conn=Nothing
End Function
%>
<%
dim badword
badword=\"\'|and|select|update|chr|delete|%20from|;|insert|mid|master.|set|chr(37)|=\"
if request.QueryString<>\"\" then
chk=split(badword,\"|\")
for each query_name in request.querystring
for i=0 to ubound(chk)
if instr(lcase(request.querystring(query_name)),chk(i))<>0 then
response.write \"<script language=javascript>alert(\'传参错误!参数 \"&query_name&\" 的值中包含非法字符串!\\n\\n\');location=\'\"&request.ServerVariables(\"HTTP_REFERER\")&\"\'\"
response.end
end if
next
next
end if
%>
----------------------------------------------
2。增加纪录
<%
if request(\"action\")=\"add\" then
name=request.form(\"name\")
content=request.form(\"content\")
set rs=server.createobject(\"adodb.recordset\")
sql=\"select * from biao\"
rs.open sql,conn,3,2
rs.addnew
rs(\"name\")=name
if content<>\"\" then
rs(\"content\")=content
else
rs(\"content\")=null
end if
rs(\"date\")=date()
rs.update
rs.close
set rs=nothing
response.write \"<script language=javascript>alert(\'添加成功!\');location.href(\'index.asp\');
--------------------------------------
3.显示记录
<%
set rs=server.createobject(\"adodb.recordset\")
sql=\"select * from biao order by id desc\"
\'sql=\"select top 10 * from biao order by id desc\"
rs.open sql,conn,1,1
rs.pagesize=15 \'-------设置每页显示的记录数
dim page
page=request(\"page\")
if page<>\"\" and IsNumeric(page) then
page=clng(page)
else
page=1
end if
n=rs.pagecount
if page>n then
page=clng(n)
end if
if rs.eof then
response.write\"暂没有信息!\"
\'response.end
else
rs.absolutepage=page
end if
i=0
do while not rs.eof and i
--------如果是每行显示n个纪录开始----------------------------
<%
do while not rs.eof and i\"
end if
%>
--------如果是每行显示n个纪录结束-----------------------------
<%=rs(\"id\")%>
<% rs.movenext
i=i+1
loop
%>
<%
response.write(\"共\"&rs.recordcount&\"条信息 \")
if page<>1 then
response.write(\"首页 \")
else
response.write(\"首页 \")
end if
if page>1 then
response.write(\"上一页 \")
else
response.write(\"上一页 \")
end if
if page下一页 \")
else
response.write(\"下一页 \")
end if
if page<>n then
response.write(\"尾页 \")
else
response.write(\"尾页 \")
end if
response.write(\" 当前页:\"&page&\"/\"&n&\"\")
%>
转到:<select name=\"select\" onChange=\'javascript:window.open(this.options[this.selectedIndex].value,\"_top\")\'>
<%for p=1 to rs.pagecount%>
<%next%>
----------------------------------------------
4。更新纪录,删除纪录,删除所有记录
<%
if request(\"action\")=\"manage\" then
call manage()
end if
if request(\"action\")=\"edit\" then
id=request(\"id\")
set rs=server.createobject(\"adodb.recordset\")
sql=\"select * from biao where id=\"&id&\"\"
rs.open sql,conn,1,1
call edit()
end if
if request(\"action\")=\"del\" then
conn.execute(\"delete * from biao where id=\"&request(\"id\")&\"\")
conn.close
response.write\"<script language=\'javascript\'>alert(\'删除成功!\');location.href(\'?action=manage\');request(\"action\")=\"delall\" then
conn.execute(\"delete * from biao\")
conn.close
response.write\"<script language=\'javascript\'>alert(\'所有信息已成功删除!\');location.href(\'?action=manage\');request(\"action\")=\"saveedit\" then
name=request.form(\"name\")
hits=request.form(\"hits\")
content=request.form(\"content\")
set rs=server.createobject(\"adodb.recordset\")
sql=\"select * from biao where id=\"&request(\"id\")&\"\"
rs.open sql,conn,3,2
rs(\"name\")=name
rs(\"content\")=content
rs(\"hits\")=hits
rs.update
conn.close
set rs=nothing
response.write \"<script language=javascript>alert(\'编辑成功!\');location.href(\'?id=\"&request(\"id\")&\"&action=edit\');
---------------------------------
5。查询纪录
------search.asp---------------
<%
if request("keyword")<>"" and request("select")<>"" then
sql="select * from biao where "&request("select")&" like '%"&request("keyword")&"%'"
elseif request("keyword")<>"" and request("select")="all" then
sql="select * from biao where name like '%"&request("keyword")&"%' or id like '%"&request("keyword")&"%' or content like '%"&request("keyword")&"%'"
else
response.redirect("index.asp")
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=15 '-------设置每页显示的记录数
dim page
page=request("page")
if page<>"" and IsNumeric(page) then
page=clng(page)
else
page=1
end if
n=rs.pagecount
if page>n then
page=clng(n)
end if
if rs.eof then
response.write"查询的信息不存在或者已经删除!"
'response.end
else
rs.absolutepage=page
end if
i=0
do while not rs.eof and i
<%=rs("id")%>
<% rs.movenext
i=i+1
loop
%>
-----------------------------------------
6.有分类的纪录代码
---------------显示分类开始---------------------------------
<%
set rs=server.createobject("adodb.recordset")
sql="select all * from class order by id desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
"><%=rs("classname")%>
<%
rs.movenext
i=i+1
loop
%>
---------------显示分类结束--------------------------
-------------显示现在所在分类开始-------------------
<%
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from class where classname='"&request("classname")&"'"
rs.open sql,conn,1,1
do while not rs.eof
%>
<%=rs("classname")%>
<%
rs.movenext
i=i+1
loop
%>
-----------显示现在所在分类结束----------------------
-----------显示此分类的纪录开始------------
<%
set rs=server.createobject("adodb.recordset")
sql="select * from biao where fenlei='"&request("classname")&"'"
rs.open sql,conn,1,1
rs.pagesize=10 '-------设置每页显示的记录数
dim page
page=request("page")
if page<>"" and IsNumeric(page) then
page=clng(page)
else
page=1
end if
n=rs.pagecount
if page>n then
page=clng(n)
end if
if rs.bof or rs.eof then
response.write"暂没有任何数据!"
'response.end
else
rs.absolutepage=page
end if
i=0
do while not rs.eof and i
<%=rs("id")%>
<% rs.movenext
i=i+1
loop
%>
--------------显示此分类的纪录结束----------------
---------删除所在分类纪录开始------------
<% if request("classname")<>"" then%>
" title="删除所有本类信息?" onClick="{if (confirm('您确定要删除所有信息吗?')){return true;}return false;}">清空所有本类信息
<%end if%>
if request("action")="del_fenlei" then
classname=request("classname")
conn.execute("delete * from biao where fenlei='"&classname&"'")
CloseDB
response.write"<script language='javascript'>alert('删除本类成功!');location.href('?action=manage');
id="picurl" size="20">
upsoftpic.asp
upfile.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Server.ScriptTimeout=999%>
<%
if request("action")="upsoftpic" then
set upload=new upload_5xsoft
set file=upload.file("softpic")
fileExt=lcase(right(file.filename,4))
if fileEXT<>".jpg" and fileEXT<>".gif" and fileEXT<>".rar" then '---设置上传类型 ++++fileEXT<>".***"++++++++
response.write"<script>alert('格式不对,请重新上传!');location='"&request.ServerVariables("HTTP_REFERER")&"'0 then
formPath="upfile/softpic" '-------上传路径
'formPath="../upfile/softpic"
if right(formPath,1)<>"/" then
formPath=formPath&"/"
end if
vfname = filename(now())
fname = vfname & "." & GetExtendName(file.FileName)
file.SaveAs Server.mappath(formPath&fname) ''保存文件
%>
<script>
parent.form.picurl.value+='upfile/softpic/<%=fname%>' //-上传路径
//parent.frmadd.dreamcontent.value+='[img]upload/<%=ufp%>[/img]'
location.replace('Upsoftpic.asp') //---返回文件
upload.asp
删除文件和记录
<%
if request("action")="manage" then
call manage()
end if
if request("action")="edit" then
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from biao where id="&id&""
rs.open sql,conn,1,1
call edit()
end if
if request("action")="del" then
set rs=server.createobject("adodb.recordset")
sql="select * from biao where id="&request("id")&""
rs.open sql,conn,3,2
set fileobj=server.createobject("scripting.filesystemobject")
if fileobj.FileExists(server.mappath(""&rs("picurl"))) then
fileobj.DeleteFile server.mappath(""&rs("picurl"))
end if
rs.delete
conn.close
response.write"<script language='javascript'>alert('删除成功!');location.href('?action=manage');request("action")="delall" then
set rs=server.createobject("adodb.recordset")
sql="select * from biao"
rs.open sql,conn,3,2
set fileobj=server.createobject("scripting.filesystemobject")
i=0
do while not(rs.bof or rs.eof) and iconn.execute("delete * from biao")
conn.close
response.write"<script language='javascript'>alert('所有已成功删除!');location.href('?action=manage');request("action")="saveedit" then
name=request.form("name")
picurl=request.form("picurl")
hits=request.form("hits")
content=request.form("content")
set rs=server.createobject("adodb.recordset")
sql="select * from biao where id="&request("id")&""
rs.open sql,conn,3,2
rs("name")=name
rs("content")=content
rs("picurl")=picurl
rs("hits")=hits
rs.update
conn.close
set rs=nothing
response.write "<script language=javascript>alert('编辑成功!');location.href('?id="&request("id")&"&action=edit');
删除文件
id")%>&struploadfiles=<%=rs("picurl")%>&action=delsoftpic" onClick="{if (confirm('您确定要删除这个吗?')){return true;}return false;}">删除
--------------------------------
--*delfile.asp内容*---
<%if request("action")="delsoftpic" then
picurl=request.form("picurl")
set rs=server.createobject("adodb.recordset")
sql="select * from biao where id="&request("id")&""
rs.open sql,conn,3,2
rs("picurl")=null
struploadfiles=trim(request.querystring("struploadfiles"))
action=trim(request.querystring("action"))
dim fso,arruploadfiles,i
set fso = createobject("scripting.filesystemobject")
fso.deletefile(server.mappath("" & struploadfiles))
set fso = nothing
rs.update
conn.close
set rs=nothing
response.write"<script language='javascript'>alert('删除成功!');location.href('edit.asp?id="&request("id")&"&action=edit'); [返回]
8。有关ubb
----------ubbcode.asp--------------
<%
const ImagePath="images/emot/"
function UBBCode(strContent)
strContent= FilterJS(strContent)
dim re
dim po,ii
dim reContent
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
po=0
ii=0
re.Pattern="[UPLOAD=(gif|jpg|jpeg|bmp|png)](.[^[]*)(gif|jpg|jpeg|bmp)[/UPLOAD]"
strContent=re.replace(strContent," 此主题相关图片如下: ")
re.Pattern="[IMG](http|https|ftp)://(.[^[]*)[/IMG]"
strContent=re.replace(strContent,"")
re.Pattern="[DIR=*([0-9]*),*([0-9]*)](.[^[]*)[/DIR]"
strContent=re.Replace(strContent,"")
re.Pattern="[QT=*([0-9]*),*([0-9]*)](.[^[]*)[/QT]"
strContent=re.Replace(strContent,"