|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来;上面的程序是阿喔动感办理通用程序,十分复杂不必注释了吧!
ifusername="admin"andpassword="admin"then
请记得修正两个admin分离用户名和暗码!
login.asp
<html>
<head>
<title>办理者上岸</title>
<linkrel="stylesheet"href="DOWNLOAD.CSS">
</head>
<body>
<divalign="center"><center>
<tableborder="0"cellspacing="1"width="90%">
<tr>
<td> <formmethod="post"action="chklogin.asp">
<tablewidth="45%"border="1"cellspacing="0"cellpadding="1"align="center"
bordercolordark="#ecf5ff"bordercolorlight="#6699cc">
<tr>
<td><tablewidth="100%"border="0"cellspacing="1"cellpadding="1">
<tr>
<tdwidth="33%"align="right"height="30">用户名:</td>
<tdwidth="67%"><inputname="username"maxlength="20"class="smallInput"size="20"></td>
</tr>
<tr>
<tdwidth="33%"align="right"height="30">密码:</td>
<tdwidth="67%"><inputtype="password"name="password"maxlength="16"class="smallInput"
size="20"></td>
</tr>
<tr>
<tdcolspan="2"height="15"></td>
</tr>
</table>
</td>
</tr>
<tralign="center">
<tdheight="40">
<inputtype="submit"name="Submit"value="断定"class="buttonface">
<inputtype="reset"name="Submit2"value="重写"class="buttonface">
</td>
</tr>
</table>
</form>
<palign="center"> </td>
</tr>
</table>
</center></div>
</body>
</html>
__________________________________________________________________
chklogin.asp
<%
dimsql
dimrs
dimseekerrs
dimfounduser
dimusername
dimcompanyid
dimpassword
dimerrmsg
dimfounderr
founderr=false
FoundUser=false
username=request.form("username")
password=request.Form("password")
ifusername=""then
response.redirect"index.asp"
endif
ifpassword=""then
response.redirect"index.asp"
endif
ifusername="admin"andpassword="admin"then
response.cookies("adminok")=true
response.redirect"manage.asp"
else
response.redirect"index.asp"
endif
%>
阿喔出处:<ASP动感在线>http://asp.on.net.cn/
(待续)</p>想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的 |
|