|
第5章 利用ASP设计动态WEB网页的技术实现具体系统 http://www.paper51.com <%function GetIp() 内容来自www.paper51.com getclientip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") copyright paper51.com
If getclientip = "" Then paper51.com getclientip =Request.ServerVariables("REMOTE_ADDR") http://www.paper51.com end if paper51.com GetIp = getclientip 内容来自www.paper51.com
end function copyright paper51.com
functionparamAdd(strParam,strAdd,value) 内容来自论文无忧网 www.paper51.com dim arrParam,intI,intJ 内容来自论文无忧网 www.paper51.com
arrParam=split(strParam,"&") 内容来自论文无忧网 www.paper51.com strAdd=lcase(strAdd) copyright paper51.com intJ=Ubound(arrParam) copyright paper51.com
paramAdd="" paper51.com
for intI=0 to intJ paper51.com
ifinStr(1,lcase(arrParam(intI)),strAdd&"=")<>1 thenparamAdd=paramAdd&arrParam(intI)&"&" paper51.com
next 内容来自论文无忧网 www.paper51.com
paramAdd=paramAdd&strAdd&"="&value 内容来自论文无忧网 www.paper51.com end function http://www.paper51.com function EncodeJs(byVal str) 内容来自www.paper51.com
if isNull(str) then 内容来自论文无忧网 www.paper51.com EncodeJs="" 内容来自www.paper51.com exit function copyright paper51.com end if paper51.com str=replace(str,chr(10),"") 内容来自论文无忧网 www.paper51.com str=replace(str,chr(13),"\n") paper51.com str=replace(str,"\","\\") 内容来自www.paper51.com str=replace(str,"""","\""") copyright paper51.com str=replace(str,"'","\'") copyright paper51.com EncodeJs=str 内容来自论文无忧网 www.paper51.com end function paper51.com On Error Resume Next paper51.com StartTime=timer() 内容来自论文无忧网 www.paper51.com
Db="Data/info.mdb" 内容来自论文无忧网 www.paper51.com Set conn =Server.CreateObject("ADODB.Connection") 内容来自论文无忧网 www.paper51.com Connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & Server.MapPath(db) 内容来自www.paper51.com
'Connstr="Driver={MicrosoftAccess Driver (*.mdb)};dbq=" & Server.MapPath(db) 内容来自www.paper51.com
Conn.Open Connstr 内容来自www.paper51.com %> 内容来自www.paper51.com 附录 copyright paper51.com
Default.asp http://www.paper51.com
<html> 内容来自论文无忧网 www.paper51.com <head> 内容来自论文无忧网 www.paper51.com <metahttp-equiv="Content-Type" content="text/html;charset=gb2312"> copyright paper51.com
<SCRIPT language=javascript> 内容来自www.paper51.com
function openScript(url, width, height) { 内容来自www.paper51.com
varWin = window.open(url,"openScript",'width=' + width + ',height=' +height + ',resizable=0,scrollbars=yes,menubar=no,status=n0' ); copyright paper51.com } 内容来自www.paper51.com </SCRIPT> copyright paper51.com <style type="text/css"> copyright paper51.com <!-- http://www.paper51.com body { 内容来自www.paper51.com
margin-left:0px; paper51.com margin-top:0px; paper51.com margin-right:0px; paper51.com margin-bottom:0px; paper51.com } paper51.com .style1 { color:#FF0000; 内容来自www.paper51.com font-size:13px; 内容来自www.paper51.com } copyright paper51.com body,td,th { 内容来自论文无忧网 www.paper51.com font-size:12px; http://www.paper51.com
} 内容来自www.paper51.com --> 内容来自www.paper51.com </style><title>网络实验教学网站教学系统</title></head> paper51.com <body bgcolor="#ffffff"> copyright paper51.com
<table width="778"border="0" align="center" cellpadding="0"cellspacing="0"> paper51.com
<tr> 内容来自www.paper51.com
<td><img src="indeximg/spacer.gif"width="563" height="1" border="0"alt=""></td> http://www.paper51.com
<td><img src="indeximg/spacer.gif"width="6" height="1" border="0"alt=""></td> 内容来自论文无忧网 www.paper51.com <td><img src="indeximg/spacer.gif"width="194" height="1" border="0"alt=""></td> 内容来自www.paper51.com <td><img src="indeximg/spacer.gif"width="15" height="1" border="0"alt=""></td> 内容来自www.paper51.com
<td><img src="indeximg/spacer.gif"width="1" height="1" border="0"alt=""></td> copyright paper51.com </tr> 内容来自论文无忧网 www.paper51.com <tr> 内容来自论文无忧网 www.paper51.com <td colspan="4"><img name="default_r1_c1"src="indeximg/default_r1_c1.gif" width="778"height="115" border="0" alt=""></td> http://www.paper51.com <td><img src="indeximg/spacer.gif"width="1" height="115" border="0"alt=""></td> paper51.com </tr> 内容来自www.paper51.com <tr> 内容来自论文无忧网 www.paper51.com <td colspan="4"><img name="default_r2_c1"src="indeximg/default_r2_c1.jpg" width="778"height="102" border="0" alt=""></td> paper51.com
<td><img src="indeximg/spacer.gif"width="1" height="102" border="0"alt=""></td> paper51.com </tr> copyright paper51.com <tr> http://www.paper51.com <td rowspan="4"><img name="default_r3_c1"src="indeximg/default_r3_c1.jpg" width="563"height="349" border="0" alt=""></td> 内容来自论文无忧网 www.paper51.com
<td rowspan="3"><img name="default_r3_c2"src="indeximg/default_r3_c2.jpg" width="6"height="197" border="0" alt=""></td> copyright paper51.com
<td colspan="2"><img name="default_r3_c3"src="indeximg/default_r3_c3.jpg" width="209"height="43" border="0" alt=""></td> http://www.paper51.com <td><img src="indeximg/spacer.gif"width="1" height="43" border="0"alt=""></td> http://www.paper51.com </tr> copyright paper51.com
<tr> 内容来自论文无忧网 www.paper51.com <td width="194" height="139"><tablewidth="193" height="119" border="0"align="center" cellpadding="0"cellspacing="0"> copyright paper51.com
<FORMstyle="BACKGROUND-COLOR: #efefef" name=formDisonsubmit=TwoSubmit(this) method=post> 内容来自论文无忧网 www.paper51.com <SCRIPT> 内容来自www.paper51.com function TwoSubmit(form){ paper51.com if (form.Ref[0].checked){ paper51.com form.action = "cklogin.asp"; http://www.paper51.com }else{ 内容来自www.paper51.com form.action = "teacher/chkadmin.asp"; 内容来自www.paper51.com } paper51.com form.submit(); 内容来自论文无忧网 www.paper51.com } paper51.com </SCRIPT> paper51.com <tr> 内容来自论文无忧网 www.paper51.com
<td><div align="center">学 号： paper51.com <input name=username id="username" size=10> copyright paper51.com </div></td> copyright paper51.com
</tr> copyright paper51.com <tr> 内容来自www.paper51.com <td height="10"><divalign="center"></div></td> paper51.com </tr> 内容来自www.paper51.com <tr> paper51.com <td><div align="center">密 码： paper51.com <input name=password type=password id="password" size=10maxlength=10> paper51.com
</div></td> paper51.com </tr> copyright paper51.com <tr> http://www.paper51.com <td><div align="center"> paper51.com <input name=Ref type=radio value=cop checked> paper51.com 学生 内容来自论文无忧网 www.paper51.com
<input type=radio value=Indname=Ref> copyright paper51.com
老师</div></td> 内容来自论文无忧网 www.paper51.com </tr> 内容来自论文无忧网 www.paper51.com <tr> http://www.paper51.com <td bgcolor="#FFFFFF"><div align="center"> paper51.com <input name="imageField" type="image"src="indeximg/loginok.gif" width="60" height="20"border="0"> http://www.paper51.com <ahref="main.asp"><img src="indeximg/nologin.gif"width="60" height="20" border="0"></a></div></td> 内容来自www.paper51.com </tr> 内容来自论文无忧网 www.paper51.com <tr> 内容来自论文无忧网 www.paper51.com <td bgcolor="#FFFFFF"><div align="center"class="style1"><a href=javascript:openScript('reg.asp',400,280)>注册获得学号</a></div></td> paper51.com </tr> http://www.paper51.com
</FORM> copyright paper51.com </table></td> 内容来自www.paper51.com <td><img name="default_r4_c4"src="indeximg/default_r4_c4.jpg" width="15"height="139" border="0" alt=""></td> 内容来自www.paper51.com
<td><img src="indeximg/spacer.gif"width="1" height="139" border="0"alt=""></td> paper51.com
</tr> paper51.com <tr> 内容来自论文无忧网 www.paper51.com
<td colspan="2"><img name="default_r5_c3"src="indeximg/default_r5_c3.jpg" width="209"height="15" border="0" alt=""></td> http://www.paper51.com <td><img src="indeximg/spacer.gif"width="1" height="15" border="0"alt=""></td> paper51.com
</tr> http://www.paper51.com <tr> copyright paper51.com <td colspan="3"><imgsrc="indeximg/default_r6_c2.jpg" alt=""name="default_r6_c2" width="215" height="152"border="0" usemap="#default_r6_c2Map"></td> 内容来自www.paper51.com
<td><img src="indeximg/spacer.gif"width="1" height="152" border="0"alt=""></td> paper51.com
</tr> 内容来自www.paper51.com <tr> paper51.com <td colspan="4"><img name="default_r7_c1"src="indeximg/default_r7_c1.jpg" width="778"height="3" border="0" alt=""></td> 内容来自论文无忧网 www.paper51.com <td><img src="indeximg/spacer.gif"width="1" height="3" border="0"alt=""></td> 内容来自www.paper51.com
</tr> http://www.paper51.com
<tr> http://www.paper51.com
<td colspan="4"><img name="default_r8_c1"src="indeximg/default_r8_c1.jpg" width="778"height="31" border="0" alt=""></td> 内容来自www.paper51.com <td><img src="indeximg/spacer.gif"width="1" height="31" border="0"alt=""></td> copyright paper51.com </tr> 内容来自论文无忧网 www.paper51.com </table> paper51.com <mapname="default_r6_c2Map"> 内容来自论文无忧网 www.paper51.com <area shape="rect" coords="11,12,77,36"href="javascript:openScript('set.htm',300,300)"> 内容来自www.paper51.com
<area shape="rect" coords="103,8,188,38"href="javascript:openScript('help.asp',400,420)"> 内容来自论文无忧网 www.paper51.com </map> paper51.com </body> 内容来自www.paper51.com
</html> copyright paper51.com |