论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > 计算机科学与技术 >

A450网络实验教学网站

第5章  利用ASP设计动态WEB网页的技术实现具体系统 paper51.com

<%function GetIp() 内容来自论文无忧网 www.paper51.com

    getclientip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 内容来自www.paper51.com

    If getclientip = "" Then

内容来自论文无忧网 www.paper51.com

       getclientip =Request.ServerVariables("REMOTE_ADDR") paper51.com

    end if http://www.paper51.com

    GetIp = getclientip

http://www.paper51.com

end function

paper51.com

functionparamAdd(strParam,strAdd,value) 内容来自论文无忧网 www.paper51.com

    dim arrParam,intI,intJ copyright paper51.com

    arrParam=split(strParam,"&")

copyright paper51.com

    strAdd=lcase(strAdd)

内容来自www.paper51.com

    intJ=Ubound(arrParam) 内容来自论文无忧网 www.paper51.com

    paramAdd=""

http://www.paper51.com

    for intI=0 to intJ copyright paper51.com

       ifinStr(1,lcase(arrParam(intI)),strAdd&"=")<>1 thenparamAdd=paramAdd&arrParam(intI)&"&" copyright paper51.com

    next copyright paper51.com

    paramAdd=paramAdd&strAdd&"="&value

内容来自论文无忧网 www.paper51.com

end function copyright paper51.com

function EncodeJs(byVal str) 内容来自论文无忧网 www.paper51.com

    if isNull(str) then

copyright paper51.com

       EncodeJs=""

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,"""","\""")

内容来自论文无忧网 www.paper51.com

    str=replace(str,"'","\'") copyright paper51.com

    EncodeJs=str 

copyright paper51.com

end function

paper51.com

On Error Resume Next

http://www.paper51.com

StartTime=timer() paper51.com

Db="Data/info.mdb"

copyright paper51.com

Set conn =Server.CreateObject("ADODB.Connection")

copyright 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 paper51.com

%> 内容来自www.paper51.com

附录 内容来自论文无忧网 www.paper51.com

Default.asp

paper51.com

<html> 内容来自论文无忧网 www.paper51.com

<head>

内容来自www.paper51.com

<metahttp-equiv="Content-Type" content="text/html;charset=gb2312"> 内容来自论文无忧网 www.paper51.com

<SCRIPT language=javascript> copyright paper51.com

function openScript(url, width, height) { 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>

内容来自www.paper51.com

<style type="text/css"> paper51.com

<!-- paper51.com

body { 内容来自www.paper51.com

       margin-left:0px; paper51.com

       margin-top:0px;

copyright paper51.com

       margin-right:0px; 内容来自论文无忧网 www.paper51.com

       margin-bottom:0px; 内容来自论文无忧网 www.paper51.com

}

内容来自论文无忧网 www.paper51.com

.style1 {  color:#FF0000; http://www.paper51.com

       font-size:13px;

http://www.paper51.com

}

内容来自论文无忧网 www.paper51.com

body,td,th {

内容来自www.paper51.com

       font-size:12px;

paper51.com

} copyright paper51.com

--> paper51.com

</style><title>网络实验教学网站教学系统</title></head> paper51.com

<body bgcolor="#ffffff"> 内容来自论文无忧网 www.paper51.com

<table width="778"border="0" align="center" cellpadding="0"cellspacing="0"> copyright paper51.com

 <tr>

http://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> copyright 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>

paper51.com

 </tr>

copyright paper51.com

 <tr> copyright paper51.com

  <td colspan="4"><img name="default_r1_c1"src="indeximg/default_r1_c1.gif" width="778"height="115" border="0" alt=""></td>

copyright paper51.com

  <td><img src="indeximg/spacer.gif"width="1" height="115" border="0"alt=""></td>

http://www.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> http://www.paper51.com

  <td><img src="indeximg/spacer.gif"width="1" height="102" border="0"alt=""></td> 内容来自论文无忧网 www.paper51.com

 </tr> http://www.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> paper51.com

  <td rowspan="3"><img name="default_r3_c2"src="indeximg/default_r3_c2.jpg" width="6"height="197" border="0" alt=""></td>

内容来自www.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> 内容来自www.paper51.com

 </tr>

paper51.com

 <tr>

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>

copyright paper51.com

      <SCRIPT>

http://www.paper51.com

  function TwoSubmit(form){ 内容来自www.paper51.com

 if (form.Ref[0].checked){ paper51.com

 form.action = "cklogin.asp"; 内容来自论文无忧网 www.paper51.com

 }else{ copyright paper51.com

 form.action = "teacher/chkadmin.asp"; 内容来自论文无忧网 www.paper51.com

 } copyright paper51.com

 form.submit(); copyright paper51.com

}

http://www.paper51.com

  </SCRIPT> 内容来自论文无忧网 www.paper51.com

       <tr>

内容来自www.paper51.com

        <td><div align="center">学 号:

内容来自www.paper51.com

                <input name=username id="username" size=10> http://www.paper51.com

        </div></td>

http://www.paper51.com

       </tr>

内容来自www.paper51.com

       <tr>

copyright paper51.com

        <td height="10"><divalign="center"></div></td> 内容来自论文无忧网 www.paper51.com

      </tr> 内容来自www.paper51.com

       <tr> http://www.paper51.com

        <td><div align="center">密 码:

内容来自论文无忧网 www.paper51.com

            <input name=password type=password id="password" size=10maxlength=10>

内容来自论文无忧网 www.paper51.com

</div></td> paper51.com

      </tr> paper51.com

       <tr> http://www.paper51.com

        <td><div align="center"> paper51.com

            <input name=Ref type=radio value=cop checked> 内容来自www.paper51.com

         学生 copyright paper51.com

         <input type=radio value=Indname=Ref>

内容来自www.paper51.com

         老师</div></td>

copyright paper51.com

      </tr> 内容来自论文无忧网 www.paper51.com

       <tr>

copyright paper51.com

        <td bgcolor="#FFFFFF"><div align="center">

内容来自www.paper51.com

            <input name="imageField" type="image"src="indeximg/loginok.gif" width="60" height="20"border="0">

内容来自论文无忧网 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>

http://www.paper51.com

        <td bgcolor="#FFFFFF"><div align="center"class="style1"><a href=javascript:openScript('reg.asp',400,280)>注册获得学号</a></div></td> 内容来自论文无忧网 www.paper51.com

      </tr> http://www.paper51.com

     </FORM>

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> http://www.paper51.com

  <td><img src="indeximg/spacer.gif"width="1" height="139" border="0"alt=""></td>

内容来自论文无忧网 www.paper51.com

 </tr>

内容来自论文无忧网 www.paper51.com

 <tr>

paper51.com

  <td colspan="2"><img name="default_r5_c3"src="indeximg/default_r5_c3.jpg" width="209"height="15" border="0" alt=""></td>

copyright paper51.com

  <td><img src="indeximg/spacer.gif"width="1" height="15" border="0"alt=""></td>

http://www.paper51.com

 </tr> copyright paper51.com

 <tr> http://www.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>

内容来自www.paper51.com

  <td colspan="4"><img name="default_r7_c1"src="indeximg/default_r7_c1.jpg" width="778"height="3" border="0" alt=""></td> copyright paper51.com

  <td><img src="indeximg/spacer.gif"width="1" height="3" border="0"alt=""></td>

paper51.com

 </tr> http://www.paper51.com

 <tr>

paper51.com

  <td colspan="4"><img name="default_r8_c1"src="indeximg/default_r8_c1.jpg" width="778"height="31" border="0" alt=""></td> copyright paper51.com

  <td><img src="indeximg/spacer.gif"width="1" height="31" border="0"alt=""></td>

http://www.paper51.com

 </tr>

copyright 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)">

http://www.paper51.com

</map> 内容来自论文无忧网 www.paper51.com

</body> paper51.com

</html> http://www.paper51.com

------分隔线----------------------------
联系方式