网页制作资料大全.docx
《网页制作资料大全.docx》由会员分享，可在线阅读，更多相关《网页制作资料大全.docx（28页珍藏版）》请在冰豆网上搜索。
网页制作资料大全
网页制作资料大全
1.接收数据库（conn.asp）
<%dimconn,dbpath
setconn=server.CreateObject（"adodb.connection"）
DBPath=Server.MapPath（"db1.mdb"）
conn.open"provider=microsoft.jet.oledb.4.0;datasource="&DBpath
%>
2.向数据库里输入
首先接收数据库
<%dimconn,dbpath
setconn=server.CreateObject（"adodb.connection"）
DBPath=Server.MapPath（"db1.mdb"）
conn.open"provider=microsoft.jet.oledb.4.0;datasource="&DBpath
%>
或者写成这样的格式：
--#includefile="conn.asp"-->
<%
t1=Request（"t1"）
t2=Request（"t2"）
t3=Request（"t3"）
t4=Request（"t4"）
t5=Request（"t5"）
shijian=cstr（date（））
conn.Execute"insertintobook（name,lxfs,zy,sex,ncon,dt）values（'"&t1&"','"&t2&"','"&t3&"','"&t4&"','"&t5&"','"&shijian&"'）"
%>
3.从数据库提取数据
<%
id=Request.QueryString（"id"）
setrs=Server.CreateObject（"adodb.recordset"）
rs.Open"select*from表名whereid="&id,conn,1,3
%>
4.读取数据时
在单元格里输入：
<%=rs（"字段"）%>
5.表格的循环
<%
setrs=Server.CreateObject（"adodb.recordset"）
rs.Open"select*fromxinwenorderbyiddesc",conn,1,3
fori=1tors.RecordCount
%>……….循环部分…….<%
<%
rs.movenext
next
%>
6.1修改页面（以新闻发布为例）
首先接收数据库<%dimconn,dbpath
setconn=server.CreateObject（"adodb.connection"）
DBPath=Server.MapPath（"db1.mdb"）
conn.open"provider=microsoft.jet.oledb.4.0;datasource="&DBpath
%>
注意：
如果数据库和文件不再同一个文件夹里，需要写成：
BPath=Server.MapPath（"../db/db1.mdb"）【一个小点实现一级跳转】
在body之间加上如下代码：
在表单前<%
id=cint（Request（"id"））
setrs=Server.CreateObject（"adodb.recordset"）
rs.Open"select*from表名whereid="&id,conn,1,3
%>
然后，表单的问号传值如：
id=<%=rs（"id"）%>">
其次，文本框内的值：
value="<%=rs（"字段"）%>"
使用在线编辑器加下代码：
id=neirong&style=standard"frameborder="0"scrolling="no"width="600"height="350">
6.2修改写入页面
首先进行权限的判断，在接收数据库
<%
ifsession（"qx"）<>"1"andsession（"qx"）<>"2"then
response.write（"无权限！
"）
else
dimconn,dbpath
setconn=server.CreateObject（"adodb.connection"）
DBPath=Server.MapPath（"db1.mdb"）
conn.open"provider=microsoft.jet.oledb.4.0;datasource="&DBpath
%>
然后往数据库写数据（在body之间）
<%
dimid,biaoti,neirong
id=request（"id"）
biaoti=request（"biaoti"）
faburen=request（"faburen"）
neirong=request（"neirong"）
conn.execute"update表名setbiaoti='"&biaoti&"',faburen='"&faburen&"',neirong='"&neirong&"'whereid="&id
%>
最后<%endif%>
6.3删除页面
<%dimconn,dbpath
setconn=server.CreateObject（"adodb.connection"）
DBPath=Server.MapPath（"zpwz.mdb"）
conn.open"provider=microsoft.jet.oledb.4.0;datasource="&DBpath
ifsession（"qx"）<>"1"then
response.write（"无权限！
"）
else
id=Request.QueryString（"id"）
conn.Execute"deletefromxinwenwhereid="&id
response.Write"成功"
endif%>
7查询页面（模糊查询）
7.1先做一个查询的表单，传到接收页
7.2建立一个接受查询的页面如下所示：
<%dimconn,dbpath
setconn=server.CreateObject（"adodb.connection"）
DBPath=Server.MapPath（"news.mdb"）
conn.open"provider=microsoft.jet.oledb.4.0;datasource="&DBpath
%>
<%
biaoti=request.Form（"t1"）
setrs=server.createobject（"adodb.recordset"）
rs.open"select*fromnewswherebiaoti='"&biaoti&"'orbiaotilike'"&biaoti&"%'orbiaotilike'%"&biaoti&"%'orbiaotilike'"&biaoti&"%'",conn,1,3
ifrs.RecordCount=0then
response.Write"您查询的内容在此没有记录，请输入要查询的正确的信息，谢谢！
"
else
fori=1tors.RecordCount
%>
新闻标题
<%=rs（"biaoti"）%>
新闻发布人
<%=rs（"fbr"）%>
新闻发布时间
<%=rs（"shijian"）%>
|
| 新闻内容 | <%=rs（"neirong"）%>
<%
rs.MoveNext
next
endif
%>
8言板制作需要注意的问题
图像读取，在需要显示图像的单元格的代码里输入：
"/>
回复连接：
id=<%=rs（"id"）%>"
回复页面：
<%dimconn,dbpath
setconn=server.CreateObject（"adodb.connection"）
DBPath=Server.MapPath（"db1.mdb"）
conn.open"provider=microsoft.jet.oledb.4.0;datasource="&DBpath
%>
<%
ifsession（"qx"）="2"then
id=Request（"id"）
setrs=Server.CreateObject（"adodb.recordset"）
rs.Open"select*fromzcwhereid="&id,conn,1,3
%>
表单写入：
id=<%=id%>">
<%
else
response.Write"无权限"
endif
%>
接收回复页面：
（1）接收数据库
（2）
<%
ifsession（"qx"）<>"2"then
response.write（"无权限！
"）
else
id=Request（"id"）
huifu=Request（"t1"）
conn.Execute"updatelysethuifu='"&huifu&"'whereid="&id
response.Write"回复成功！
"
endif
%>