ASP+SQL Server http://www.dearbook.com.cn/book/101885 http://www.china-pub.com/computers/common/info.asp?id=28801 http://www.douban.com/group/19963/ ASP
ASP Web
1 1.1 1.2 1.2.1 1.2.2 1.2.3 1.2.4 1.3 1.4 IIS SQL Server 1.4.1 IIS 1.4.2 SQL Server 1.5 1.5.1 1.5.2 1.6 1.6.1 1.6.2 1.7 1.8 1.8.1 1.8.2 1.8.3 1.9 1.9.1 1.9.2 1.9.3 1.9.4 1.10 1.10.1 1.10.2 1.10.3 1.10.4 1.11 1.11.1 1.11.2 1.11.3 1.11.4 1.12 1.12.1 1.12.2
2 1.13 1.14 1.14.1 1.14.2 1.15 1.16 1.16.1 1.16.2 1.16.3 1.17 1.17.1 1.18.1 SQL 1.18 2.1 2.2 2.2.1 2.2.2 2.2.3 2.2.4 2.3 2.4 IIS SQL Server 2.4.1 IIS 2.4.2 SQL Server 2.5 2.5.1 2.5.2 2.5.3 2.6 2.7 2.8 2.8.1 2.8.2 2.8.3 2.9 2.9.1 2.9.2 2.10 2.10.1 2.10.2 2.10.3 2.11 2.11.1 2.11.2
3 4 2.11.3 2.11.4 2.11.5 2.11.6 2.11.7 2.11.8 2.12 2.12.1 2.12.2 2.13 3.1 3.2 3.2.1 3.2.2 3.2.3 3.2.4 3.3 3.4 IIS SQL Server 3.4.1 IIS 3.4.2 SQL Server 3.5 3.5.1 3.5.2 3.5.3 3.5.4 3.6 3.6.1 3.6.2 3.7 3.8 3.9 3.9.1 3.9.2 3.10 3.10.1 JavaScript 3.10.2 JavaScript 3.11 4.1 4.2 4.2.1 4.2.2 4.2.3
5 4.2.4 4.3 4.4 IIS SQL Server 4.4.1 IIS 4.4.2 SQL Server 4.5 4.5.1 4.5.2 4.5.3 4.5.4 4.5.5 4.6 4.6.1 4.6.2 4.7 4.8 4.9 4.10 4.11 4.12 4.13 5.1 5.2 5.2.1 5.2.2 5.2.3 5.2.4 5.3 5.4 IIS SQL Server 5.4.1 IIS 5.4.2 SQL Server 5.5 5.5.1 5.5.2 5.5.3 5.5.4 5.5.5 5.5.6 5.5.7 5.5.8 5.5.9 5.5.10 5.5.11
6 7 5.5.13 5.5.14 5.5.15 5.6 5.7 5.8 5.8.1 5.8.2 5.9 5.9.1 5.9.2 ASP SQL 5.10 6.1 6.2 6.2.1 6.2.2 6.2.3 6.2.4 6.3 6.4 IIS SQL Server 6.4.1 IIS 6.4.2 SQL Server 6.5 6.5.1 6.5.2 6.5.3 6.5.4 6.5.5 6.5.6 6.5.7 6.5.8 6.5.9 6.5.10 6.6 6.6.1 JavaScriptindexof 6.6.2 VBScript ASP 6.7 7.1 7.2 7.2.1 7.2.2 7.2.3
8 7.2.4 7.3 7.4 IIS SQL Server 7.4.1 IIS 7.4.2 SQL Server 7.5 7.5.1 7.5.2 7.5.3 7.5.4 7.5.5 7.5.6 7.5.6 7.5.7 7.6 7.6.1 7.6.2 7.6.3 7.7 7.6.1 7.6.1 JMail 7.8 8.1 8.2 8.2.1 8.2.2 8.2.3 8.2.4 8.3 8.4 IIS SQL Server 8.4.1 IIS 8.4.2 SQL Server 8.5 8.5.1 8.5.2 8.5.3 8.6 8.6.1 8.6.2 8.6.3 8.6.4 8.7 8.8
8.8.1 8.8.2 8. 9 8. 10 ASP
VBScript BOF EOF Randomize timeout Session
1.1 Intern Internet Internet Web Web 1.2 1.2.1 1 B/S Browser/Web/DataBase Browser/Server B/S Web Web Server Browser/Server PresentatioonB Data Service Web Web Web Web HTTP Web IE
Web Web SQL Web Web Web Web SQL SERVER2000 Browser/Server 1.1 2 1.2 1.1 B/S 1.2 1.2.2 4 1.3
1.3 1 2 3
1.2.3 1 1.4 2 1.4 1.5 1.2.4 1.5
SQL Server2000 SQL Server2000 test test 1.1 admin student examination test rightorwrong selecting filling 1.1 test SQL Server Windows 1 admin1.2 adminadminpassword 2 SQL Server test admin admin adminpasswordadmin Primary 1.2 1.2 admin admin nvarchar 10 adminpassword nvarchar 6 2student 1.3 studentname (studentpassword)sex class studentnumber registerdata 6 studentnumber 1.3 1.3 student studentnumber nvarchar 8 studentname nvarchar 10 studentpassword nvarchar 6 sex char 2 class nvarchar 30 registerdata smalldatetime
3examination 1.4 examinationid studentnumber score examinationdata pass makeup makeupdata 7 examinationid studentnumber Pass 0 makeup 0 1.4 1.4 examination examinationid int studentnumber nvarchar 8 score int examinationdata smalldatetime pass bit makeup int makeupdata smalldatetime 4test 1.5 examinationid rightorwrongid rightorwrongscore selectidselectscore fillingscore setupdata 8 examinationid examinationid 1 1 1.5 1.5 test examinationid int rightorwrongid int rightorwrongscore int selectid int selectscore int fillingid int fillingscore int setupdata smalldatetime 5 rightorwrong 1.6 rightorwrongid question answer setupdata 4 rightorwrongid rightorwrongid 1 1 1.6 1.6 rightorwrong rightorwrongid int question nvarchar 250 answer bit setupdata smalldatetime 6 selecting1.7
4 selectid question 1 Result1 2 Result2 3 Result3 4 Result4 answer setupdata 8 selectid selectid 1 1 1.7 1.7 selecting selectid int question nvarchar 250 result1 nvarchar 100 1 result2 nvarchar 100 2 result3 nvarchar 100 3 result4 nvarchar 100 4 answer nvarchar 100 setupdata smalldatetime 7 filling1.8 f question answer setupdata 4 fillingid fillingid1 1 1.8 1.8 filling fillingid int question nvarchar 250 answer nvarchar 250 setupdata smalldatetime 8 examination test student examination examinationid test examination examination studentnumber student studentnumber SQL Server 1.6
1.6 PK FK NULL 1.3 1 1.7 1.7 2
1.8 1.8 1.9 1.9 1.10
3 1.10 1.11 4 1.11 1.12
5 1.12 1.13 1.14 1.13 1.14 6 1.15
7 1.15 1.16 8 1.17 1.16 1.17 9 1.18
1.18 10 1.19 11 1.19 1.20
1.20 1.4 IIS SQL Server 1.4.1 IIS IIS Internet Information Server Internet WEB FTP Mail Windows 2000 WEB IIS Windows 2000 Windows 9x/Me IIS PWSWEB 1 Windows XP IIS 10 IIS Windows IIS 1 2 / Windows Windows 3 Internet IIS 1 2 Internet Internet 3 1.21 1.21 4 5 zxks
6 d:\software\zxks 1.22 1.22 7 Internet 1.4.2 SQL Server SQL Server 2000 1.23 1.24 test 1.23
1.24 conn.asp <!--#include file="conn.asp"--> <% Set conn = Server.CreateObject("ADODB.Connection") conn connstr="provider=sqloledb;data Source=(local);Initial Catalog=test;User ID=sa;Password=yanyan;" recordset conn.open connstr 1.5 2 firework jpg gif top.htm index.asp 1.25
1.25 1.5.1 (top.htm) <!--#include file="top.htm"--> 1.26 1.26 1 1 images <img border="0" src="images/2.gif" width="778" height="167"></td> 1.5.2 Login.asp 1.27
1.27 1 1 a a 1 3 b b 3 5 c c 2 2 student pwd Pwd type password * onclick onclick="check()" 1 ASP ASP session <!--#include file="conn.asp"--> <% conn.asp javascript check() // javascript check() <script language=javascript> function check() { // student if (document.form1.student.value=="") {alert(" "); document.form1.student.focus(); // student return false;} // IE // pwd t if (document.form1.pwd.value=="") {alert(" "); document.form1.pwd.focus(); // pwd return false;} // IE // ctype, ctype add document.form1.ctype.value="add"; document.form1.submit(); // form1 } </script> vbscript student session.timeout=125 125 ctype "ctype" add session if trim(request("ctype"))="add" then
session("student")="" session("classes")="" session("id")="" session("number")="" session("sex")="" sql="select * from student where studentname='"&trim(request("student"))&"' and studentpassword='"&trim(request("pwd"))&"'" sql set rs=conn.execute(sql) sql javascript, if rs.eof then <script language=javascript> alert(" "); </script> <% vbscript session else session("student")=rs("studentname") session("classes")=rs("class") session("number")=rs("studentnumber") session("sex")=rs("sex") session("timen")=now <script language=javascript> //javascript index.asp var now=new Date() //index.asp IEhistory window.navigate("index.asp?time="+now.gettime()); </script> <%end if end if 2 <html>... <!--#include file="top.htm"--> <% top.htm <table border="0" cellpadding="4" style="border-collapse: collapse" bordercolor="#111111" width="778" height="100"> <% a <tr> <td align="center"> <table border="0" width="100%" id="table1"> <% b <form name=form1 action=""> <input type="hidden" name="ctype" > <% <table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="300" id="table2"> <% c <input type="text" name="student" size="20" class="line" style="border-style:solid; border-width:1px; padding:1px; height:22"></td> <% <input type="password" name="pwd" size="20" class="line" style="height: 22; border-style: solid; border-width: 1px"></td> <% <input type="button" value="" name="b1" onclick="check()"
class="line" style="width: 60; height: 22; border-style: solid; border-width: 1px; background-color: #FFFFFF"> <input type="reset" value=" " name="b2" class="line" style="width: 60; height: 22; border-style: solid; border-width: 1px; background-color: #FFFFFF"></td> <% <td><a href="register.asp"> </a></td> <% <td><a href="admin/index.asp"> </a></td> <% <td><img border="0" src="images/login.jpg" width="299" height="289"></td> <% </html> 1.6 2 top2.htm register.asp 1.6.1 (top2.htm) top file="top2.htm"--> 1.28 <!--#include 1.28 top.htm src=" images/2.jpg" src=" images/7.jpg" 1.6.2 (register.asp) 1.29
1.29 1 1 a a 6 3 b 1 ASP ASP <!--#include file="conn.asp"--> <% conn.asp javascript check() <script language=javascript> function check() { if (document.form1.student.value=="") // {alert(" "); // document.form1.student.focus(); // return false; // IE } if (document.form1.pwd.value=="") // {alert(" "); // document.form1.pwd.focus(); // return false; // IE } if (document.form1.classes.value=="") // {alert(" "); // document.form1.classes.focus(); // return false; // IE } if (document.form1.number.value=="") // {alert(" "); // document.form1.number.focus(); // return false; // IE } // ctype, ctype add document.form1.ctype.value="add"; document.form1.submit(); // form1 } </script> vbscript javascript ctype "ctype" add
if trim(request("ctype"))="add" then sqlfind="select * from student where studentnumber='"&trim(request("number"))&"'" sql set rsfind=conn.execute(sqlfind) sql if not rsfind.eof then student <script language=javascript> //javascript alert(""); </script> vbscript student javascript login.asp else sqlin="insert into student (studentname,studentpassword,sex,class,studentnumber) values('"&trim(request("student"))&"','"&trim(request("pwd"))&"','"&trim(req uest("sex"))&"','"&trim(request("classes"))&"','"&trim(request("number"))&"' )" sqlstudent set rs=conn.execute(sqlin) sql login.asp <script language=javascript>//javascript alert(" "); window.navigate("login.asp"); </script> <% end if end if 2 <html>... <!--#include file="top2.htm"--> <% top2.htm <form name=form1 action=""> <% <input type="hidden" name="ctype"> <input type="text" name="student" size="20" style="height: 22; border-style: solid; border-width: 1px" class="line"></td> <td width="200"> (*)</td> <select name="sex" size="1" style="border: 1px solid #000000" class="line"> <option value=" "> </option> <option value=" "> </option> </select> <input type="password" name="pwd" size="20" style="height: 22; border: 1px solid #000000" class="line"></td> <td> (6 )</td> <input type="text" name="classes" size="20" style="height: 22; border: 1px solid #000000"></td> <input type="text" name="number" size="20" style="height: 22; border:
1px solid #000000"></td> <input type="button" value=" " name="b1" onclick="check()" style="height: 22; width: 60; border-style: solid; border-width: 1px; background-color: #FFFFFF" class="line"> <input type="reset" value=" " name="b2" style="width: 60; height: 22; border-style: solid; border-width: 1px; background-color: #FFFFFF"></td> <% </tr> </table></form> </html> 1.7 1.30 1.30 3 2 1 ASP ASP session <!--#include file="conn.asp"--> <% conn.asp javascript check() <script language=javascript> function check() {if (document.form1.id.value=="") // id {alert (" "); // document.form1.id.focus(); // id return false;} // IE if (document.form1.pwd.value=="") // pwd {alert (" "); // document.form1.pwd.focus(); // pwd return false;} // IE document.form1.ctype.value="types";// ctype, ctype add document.form1.submit(); // form1
} </script> vbscript session admin.asp if request("ctype")="types" then sqlfind="select * from admin where admin='"&trim(request("id"))&"' and adminpassword='"&trim(request("pwd"))&"'" sqladmin set rs=conn.execute (sqlfind) sql admin admin.asp if rs.eof then <script language=javascript> //javascript alert(""); history.back(); // </script> <% else session("adminid")=rs("admin") admin <script language=javascript> window.navigate("admin.asp"); admin.asp </script> <%end if else 2 <html> <form name=form1 action=""> <% <input type=hidden name=ctype > <input type="text" name="id" size="20" style="height: 22; border-style: solid; border-width: 1px"></td> </tr> <input type="text" name="pwd" size="20" style="height: 22; border-style: solid; border-width: 1px"></td> <input type="button" value="" name="b1" onclick="check()" style="width: 60; height: 22; border-style: solid; border-width: 1px; background-color: #FFFFFF"> <input type="reset" value="" name="b2" style="width: 60; height: 22; border-style: solid; border-width: 1px; background-color: #FFFFFF"></td> <% </form> <%end if
JavaScript indexof
6.1 6.2 6.2.1 6.1 6.2.2 6.2 6.1 6.2 1 2
6.2.3 6.3 6.2.4 2 6.3 SQL Server2000 SQL Server2000 tsgl tsgl 6.1 admin borecorder 1 admin 6.2 6.1 tsgl id username password 3 SQL Server admin id Primary Key 1
6.2 6.2 admin ID int username nvarchar 50 password nvarchar 50 2 borecorder 6.3 id name bo_total bo_dep bo_owner bo_time bo_retime bo_flag return_time bo_remark 10 id Primary Key 1 1 bo_flag 0 6.3 6.3 borecorder bo_id int bo_name nvarchar 50 bo_total int bo_dep nvarchar 50 bo_owner nvarchar 50 bo_time smalldatetime bo_retime smalldatetime bo_flag int return_time smalldatetime bo_remark nvarchar 2000 6.3 1 6.4 go
6.4 6.5 6.5 6.6 6.6 6.7 6.7
6.8 6.8 6.4 IIS SQL Server 6.4.1 IIS 6.4.2 SQL Server Microsoft SQL Server tsg conn.asp <!--#include file="inc/conn.asp"--> <% Set conn = Server.CreateObject("ADODB.Connection") connstr="provider=sqloledb;data Source=work;Initial Catalog=tsg;User ID=sa;Password=sa;" conn.open connstr 6.5 6.5.1 default.asp 6.9
6.9 <html> 1 main main1 A:link A:active A:visited A:hover <STYLE type=text/css>.main { FONT-SIZE: 12px }.main1 { FONT-SIZE: 9pt }.main2 { FONT-SIZE: 16px }.main3 { FONT-SIZE: 7px }.main4 { FONT-SIZE: 10px } A:link { COLOR: #ffffff; TEXT-DECORATION: none } A:visited { COLOR: #ffffff; TEXT-DECORATION: none } A:active { COLOR: #ff0000; TEXT-DECORATION: none } A:hover { COLOR: #aa0000; TEXT-DECORATION: underline } </STYLE>
<!--#include file="conn.asp"--> <% conn.asp 2 <% set rs=server.createobject("adodb.recordset") recordset sqltext="select * from borecorder where bo_flag=0 order by bo_retime asc" borecorder bo_flag 0 rs.open sqltext,conn,1,1 sql MaxPerPage dim MaxPerPage MaxPerPage=20 20 'showpages If rs.eof and rs.bof then call showpages response.write "<p align='center'><font color='#ff0000'> </font></p>" response.end End if ', dim text,checkpage text="0123456789" Rs.PageSize=MaxPerPage for i=1 to len(request("page")) checkpage=instr(1,text,mid(request("page"),i,1)) if checkpage=0 then exit for end if next 3 0 1 Cur 1 CurrentPage CurrentPage 1 If checkpage<>0 then If NOT IsEmpty(request("page")) Then CurrentPage=Cint(request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount Else CurrentPage= 1 End If borecorder If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if Else CurrentPage=1 End if call showpages showpages call list list If Rs.recordcount > MaxPerPage then call showpages end if 4list
list Sub list() <form method='post' action='search.asp'> <% <% <input type="button" value="" onclick=" window.location='add_info.asp'" style="font-family:,, Arial; font-size: 9pt; height:20px;background-color:#d4d0c8;" onmouseover ="this.style.backgroundcolor='#ffc864'" onmouseout ="this.style.backgroundcolor='#d4d0c8'"> <input type="button" value="" onclick=" window.location='info_check.asp'" style="font-family:,, Arial; font-size: 9pt; height:20px;background-color:#d4d0c8;" onmouseover ="this.style.backgroundcolor='#ffc864'" onmouseout ="this.style.backgroundcolor='#d4d0c8'"> <input type="button" value="" onclick=" window.location='old.asp'" style="font-family:,, Arial; font-size: 9pt; height:20px;background-color:#d4d0c8;" onmouseover ="this.style.backgroundcolor='#ffc864'" onmouseout ="this.style.backgroundcolor='#d4d0c8'"> <% <select name='class' size='1' tabindex='0' style="font-size: 9pt"> <option value=' '> </option> <option value=''></option> <option value=' '> </option> <option value=' '> </option> <option value=' '> </option> <option value=''></option> <option value=''></option> <option value=''></option> <option value=''></option> </select> <% <input type='text' name='name' size='11' onmouseover = "this.style.backgroundcolor = '#E5F0FF'" onmouseout = "this.style.backgroundcolor = ''" style="font-family:,, Arial; font-size: 9pt; height:18px;background-color:#f3f3f3;border:1 solid black"> <% <input type='submit' value='' name='submit' style="font-family:,, Arial; font-size: 9pt; height:20px;background-color:#d4d0c8;" onmouseover ="this.style.backgroundcolor='#ffc864'" onmouseout ="this.style.backgroundcolor='#d4d0c8'"> <% if not rs.eof then borecorder i=0 i0 do while not rs.eof <tr class=main1> <td width="6%" align="center" height="23"><%=rs("bo_id")</td> <td width="18%" align="center" height="23"><%=rs("bo_name")</td> <td width="8%" align="center" height="23"><%=rs("bo_total")</td>
<td width="10%" align="center" height="23"><%=rs("bo_dep")</td> <td width="11%" align="center" height="23"><%=rs("bo_owner")</td> <td width="13%" align="center" height="23"><%=rs("bo_time")</td> <td width="13%" align="center" height="23"><%=rs("bo_retime")</td> <td width="9%" align="center" height="23"><a href="#" title=<%=rs("bo_remark")><font color="#000000"><u></u></font></a></td> <td width="9%" align="center" height="23"><%if DateDiff("d", rs("bo_retime"), date())<0 then 0<%else<font color=red><%=datediff("d", rs("bo_retime"), date())</font><%end if</td> </tr> <% i=i+1 if i >= MaxPerpage then exit do rs.movenext loop end if <% End sub rs.close conn.close </form> <% 5showpages showpages sub showpages() <% response.write "<form method=post action='default.asp'>" <% Response.write "<font color='#000000'>-</font>" If currentpage > 1 Then response.write "<a href='default.asp?&page="+cstr(1)+"'><font color='#000000'></font></a><font color='#000000'><b>-</b></font>" Response.write "<a href='default.asp?page="+cstr(currentpage-1)+"'><font color='#000000'> </font></a><font color='#000000'><b>-</b></font>" Else Response.write "<font color='#000000'>-</font>" Response.write "<font color='#000000'>-</font>" End if If currentpage < Rs.PageCount Then Response.write "<a href='default.asp?page="+cstr(currentpage+1)+"'><font color='#000000'> </font></a><font color='#000000'><b>-</b></font>"
Response.write "<a href='default.asp?page="+cstr(rs.pagecount)+"'><font color='#000000'> </font></a> " Else Response.write "<font color='#000000'> -</font>" Response.write "<font color='#000000'> </font> " End if Response.write "<font color='#000000'> :</font>" & "<font color=#ff0000>" & Cstr(CurrentPage) & "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font> " Response.write "<font color=#ff0000>" & Cstr(MaxPerPage) & "</font>" & "<font color='#000000'> /  " & " </font>" & "<font color=#ff0000>" & Cstr(Rs.RecordCount) & "</font>" & "<font color='#000000'> </font> " response.write "</td><td align='right'>" response.write "<font color='#ffffff' class=main1> </font><input type='text' name='page' size=4 maxlength=4 class=smallinput value="¤tpage&"> " response.write "<input class=buttonface type='submit' value='go' name='cndok' style='background-color: #e1f0ff'></span> " </form> <%end sub </body> </html> 6.5.2 default.asp Search.asp 6.10 6.10 <%@ LANGUAGE="VBSCRIPT" <!--#include file="conn.asp" --> <% conn.asp 1 SQL <%
bo_class Class bo_class=request("class") bo_name name bo_name=request("name") set rs=server.createobject("adodb.recordset") recordset borecorder sqltext="select * from borecorder " bo_class bo_name name bo_flag bo_retime if bo_class=" " then sqltext=sqltext &" where bo_name like '%"& request("name") &"%' and bo_flag=0 order by bo_retime asc" elseif bo_class="" then bo_class bo_ name owner bo_flag bo_retime sqltext=sqltext &" where bo_owner like '%"& request("name") &"%' and bo_flag=0 order by bo_retime asc" elseif bo_class=" " then bo_class bo_ name dep bo_flag bo_retime sqltext=sqltext &" where bo_dep like '%"& request("name") &"%' and bo_flag=0 order by bo_retime asc" elseif bo_class=" " then bo_class bo_ name total bo_flag bo_reti sqltext=sqltext &" where bo_total ="& request("name") &" and bo_flag=0 order by bo_retime asc" elseif bo_class=" " then bo_class bo_flag bo_reti sqltext=sqltext &" where datediff('d', bo_retime, date()) >= "& request("name") &" and bo_flag=0 order by bo_retime asc" elseif bo_class="" then bo_class name bo_flag bo_retime sqltext=sqltext &" where datediff('d', bo_time, # "&request("name")& "#) >0 and bo_flag=0 order by bo_retime asc" elseif bo_class="" then bo_class name bo_flag bo_retime sqltext=sqltext &" where datediff('d',# "&request("name")& "#, bo_time ) >0 and bo_flag=0 order by bo_retime asc" elseif bo_class="" then bo_class name bo_flag bo_retime sqltext=sqltext &" where datediff('d', bo_retime, # "&request("name")& "#) >0 and bo_flag=0 order by bo_retime asc" elseif bo_class="" then bo_class "name bo_flag bo_retime sqltext=sqltext &" where datediff('d', bo_retime, # "&request("name")& "#) <0 and bo_flag=0 order by bo_retime asc" end if rs.open sqltext,conn,1,1 sql 2 html html
<html> <% main main1 A:link A:active A:visited A:hover <STYLE type=text/css>.main { FONT-SIZE: 12px }.main1 { FONT-SIZE: 9pt } 2 <% dim MaxPerPage MaxPerPage MaxPerPage=20 20 'showpages If rs.eof and rs.bof then call showpages response.write "<p align='center'><font color='#ff0000'> </font></p>" response.end End if ', dim text,checkpage text="0123456789" Rs.PageSize=MaxPerPage for i=1 to len(request("page")) checkpage=instr(1,text,mid(request("page"),i,1)) if checkpage=0 then exit for end if next 3 6.5.3 Login.htm 6.11
6.11 <html> <% main main1 A:link A:active A:visited A:hover <STYLE type=text/css>.main { FONT-SIZE: 12px }.main1 { FONT-SIZE: 14px }.main2 { <FORM language=javascript name=form1 action=check.asp method=post> <% <% <TD class=main1 width=120 height=25><input maxlength=16 size=13 name=uid style="font-size: 14px"> </TD> <% <TD class=main1 width=120 height=25 bgcolor="#e1f0ff"><input maxlength=16 size=15 name=pwd type="password" style="font-size: 9pt"> </TD> <% <DIV align=center><input class=main type=submit size=3 value= name=submit2> </DIV></TD></TR></TBODY></TABLE> </form> </body> </html>