|
4.5 公用模块的编写 ① 数据库连接文件 数据库连接文件dbconn.inc中定义了数据库连接对象，并开启数据连 内容来自www.paper51.com 接备用，同时打开一个记录集，取出一些系统所需常数并保存在本地变量中， http://www.paper51.com dbconn.inc文件的内容如下所示： copyright paper51.com 数据库连接文件dbconn.inc copyright paper51.com
内容来自www.paper51.com
<% paper51.com Set conn =Server.CreateObject("ADODB.Connection") copyright paper51.com conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database/jy.mdb") paper51.com setrs=createobject("adodb.recordset") 内容来自www.paper51.com sql="select* from system" 内容来自www.paper51.com rs.opensql,Conn copyright paper51.com if notrs.eof then http://www.paper51.com title=rs("title") paper51.com homename=rs("homename") 内容来自论文无忧网 www.paper51.com homeurl=rs("homeurl") http://www.paper51.com copyen=rs("copyen") copyright paper51.com notice=rs("notice") paper51.com tel=rs("tel") 内容来自论文无忧网 www.paper51.com top=rs("top") paper51.com link1=rs("link1") paper51.com link11=rs("link11") 内容来自论文无忧网 www.paper51.com link2=rs("link2") 内容来自www.paper51.com
link22=rs("link22") copyright paper51.com
link3=rs("link3") 内容来自www.paper51.com link33=rs("link33") http://www.paper51.com link4=rs("link4") 内容来自www.paper51.com link44=rs("link44") paper51.com link5=rs("link5") http://www.paper51.com link55=rs("link55") copyright paper51.com link6=rs("link6") paper51.com link66=rs("link66") copyright paper51.com
ymail=rs("ymail") paper51.com smail=rs("smail") http://www.paper51.com address=rs("address") 内容来自论文无忧网 www.paper51.com
copycn=rs("copycn") copyright paper51.com pics1=rs("pics1") copyright paper51.com piclinks1=rs("piclinks1") http://www.paper51.com pics2=rs("pics2") copyright paper51.com piclinks2=rs("piclinks2") 内容来自www.paper51.com
pics3=rs("pics3") http://www.paper51.com
piclinks3=rs("piclinks3") copyright paper51.com pics4=rs("pics4") http://www.paper51.com
piclinks4=rs("piclinks4") copyright paper51.com end if 内容来自论文无忧网 www.paper51.com setrs=createobject("adodb.recordset") paper51.com
sql="select* from link" 内容来自论文无忧网 www.paper51.com rs.opensql,Conn copyright paper51.com if notrs.eof then 内容来自www.paper51.com piclink0=rs("piclink0") 内容来自www.paper51.com piclink00=rs("piclink00") http://www.paper51.com piclink1=rs("piclink1") copyright paper51.com piclink11=rs("piclink11") http://www.paper51.com piclink2=rs("piclink2") 内容来自www.paper51.com piclink22=rs("piclink22") 内容来自www.paper51.com piclink3=rs("piclink3") 内容来自论文无忧网 www.paper51.com piclink33=rs("piclink33") paper51.com
piclink4=rs("piclink4") 内容来自www.paper51.com piclink44=rs("piclink44") copyright paper51.com
piclink5=rs("piclink5") paper51.com piclink55=rs("piclink55") http://www.paper51.com piclink6=rs("piclink6") 内容来自www.paper51.com
piclink66=rs("piclink66") copyright paper51.com piclink7=rs("piclink7") paper51.com piclink77=rs("piclink77") copyright paper51.com piclink8=rs("piclink8") copyright paper51.com piclink88=rs("piclink88") copyright paper51.com piclink9=rs("piclink9") http://www.paper51.com piclink99=rs("piclink99") 内容来自论文无忧网 www.paper51.com piclinka=rs("piclinka") paper51.com piclinkaa=rs("piclinkaa") paper51.com piclinkb=rs("piclinkb") 内容来自论文无忧网 www.paper51.com piclinkbb=rs("piclinkbb") 内容来自www.paper51.com piclinkc=rs("piclinkc") 内容来自www.paper51.com piclinkcc=rs("piclinkcc") 内容来自论文无忧网 www.paper51.com banner=rs("banner") 内容来自www.paper51.com
banners=rs("banners") 内容来自论文无忧网 www.paper51.com banner1=rs("banner1") 内容来自www.paper51.com banner1s=rs("banner1s") http://www.paper51.com scjj=rs("scjj") paper51.com p0n=rs("p0n") copyright paper51.com p1n=rs("p1n") http://www.paper51.com p2n=rs("p2n") copyright paper51.com p3n=rs("p3n") http://www.paper51.com
p4n=rs("p4n") copyright paper51.com
p5n=rs("p5n") 内容来自论文无忧网 www.paper51.com p6n=rs("p6n") paper51.com p7n=rs("p7n") paper51.com p8n=rs("p8n") 内容来自论文无忧网 www.paper51.com p9n=rs("p9n") 内容来自论文无忧网 www.paper51.com pan=rs("pan") http://www.paper51.com pbn=rs("pbn") http://www.paper51.com
end if 内容来自www.paper51.com rs.close 内容来自论文无忧网 www.paper51.com %> copyright paper51.com 将经常用到的程序变量保存在本地变量中，以便后续程序使用，这种方 copyright paper51.com 法在开发中经常用到，有如下两个好处： paper51.com
l 在编写程序时减少工作量。 http://www.paper51.com l 可以及时关闭数据连接对象以降低服务器系统资源消耗。 http://www.paper51.com ② 页面头文件 copyright paper51.com 由于页面的头部导航部分都是类似的，因此可以将起单独放在一个文件 paper51.com 中，并在需要使用的地方使用include指令来引入文件，使得程序模式化。 内容来自www.paper51.com 本系统中，也面的头部导航文件是top.asp，其代码如下： 内容来自论文无忧网 www.paper51.com 头部文件top.asp http://www.paper51.com copyright paper51.com <BODYtext=#000000 bgColor=#003366 leftMargin=0 topMargin=0 link="#FFFFFF"vlink="#FFFFFF" alink="#FFFFFF"> paper51.com <divalign="center"> 内容来自论文无忧网 www.paper51.com
<center> http://www.paper51.com <tableborder="0" cellspacing="0" style="border-collapse:collapse" bordercolor="#111111" width="770"id="AutoNumber3" cellpadding="0" height="1"background="../images/l2.gif"> 内容来自论文无忧网 www.paper51.com <tr> http://www.paper51.com <td width="100%"></td> 内容来自论文无忧网 www.paper51.com </tr> paper51.com
</table> paper51.com
</center> http://www.paper51.com </div> copyright paper51.com
<divalign="center"> 内容来自www.paper51.com <center> copyright paper51.com <tableborder="0" cellspacing="0" style="border-collapse:collapse" bordercolor="#111111" width="770"id="AutoNumber2" cellpadding="2" bgcolor="#2C8ED3"> paper51.com
<tr> copyright paper51.com <td width="155"><p align="center"><img border="0" src="images/xd-logo.gif"width="260" height="80"></td> copyright paper51.com
<td width="591"><p align="center"><ahref="<%=banners%>"><imgsrc="<%=banner%>" width="468" height="60"border="0"></a></td> 内容来自www.paper51.com </tr> 内容来自www.paper51.com </table> paper51.com </center> http://www.paper51.com </div> paper51.com <divalign="center"> copyright paper51.com <center> 内容来自www.paper51.com <tableborder="0" cellspacing="0" style="border-collapse:collapse" bordercolor="#111111" width="770"id="AutoNumber4" cellpadding="0" height="1"background="../images/l2.gif"> 内容来自www.paper51.com <tr> http://www.paper51.com <td width="100%"></td> http://www.paper51.com </tr> paper51.com </table> paper51.com
</center> 内容来自www.paper51.com </div> paper51.com |