|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<!-- #include file="../conn.asp" --> <% dim rs,sql,x_name,x_pwd,x_count If Request.Form("do")="ok" Then If Request.Form("user_name")="" Then Response.Write("<script Language=\\\'javascript\\\'>alert(\\\'对不起,请输入用户名!t\\\');history.go(-1);</script>") Response.End() Else x_name = Request.Form("user_name") End If \\\'↑ 叛断用户名是否为空! If Request.Form("user_pwd")="" Then Response.Write("<script Language=\\\'javascript\\\'>alert(\\\'对不起,请输入用户密码!t\\\');history.go(-1);</script>") Response.End() Else x_pwd = Request.Form("user_pwd") End If \\\'↑ 叛断用户密码是否为空! set rs = Server.Createobject("adodb.recordset") sql="select * from [user] where user_name=\\\'"&x_name&"\\\' and user_pwd=\\\'"&x_pwd&"\\\'" rs.open sql,conn,1,1 if not rs.Eof Then session("s_name")=rs("user_name") session("s_shen")=rs("shenfen") session("s_shi")=rs("shijian") Response.Redirect "infoin.asp" Else Response.Write("<script language=\\\'javascript\\\'>alert(\\\'对不起,用户或密码错误!t\\\');history.go(-1);</script>") Response.End() End If Else %> <title>-->系统登录</title> <style type="text/css"> <!-- .zi { font-family: Arial, Helvetica, sans-serif; font-size: 10pt; } --> </style> <p> </p> <p> </p> <p> </p> <p> </p> <table width="320" height="140" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#33CCFF" class="zi"> <tr> <td colspan="2">-->系统登录</td> </tr> <form name="form1" method="post" action="index.asp"> <tr bgcolor="#FFFFFF"> <td width="72"><div align="center">帐号:</div></td> <td width="239"> <input name="user_name" type="text" id="user_name"> </td> </tr> <tr bgcolor="#FFFFFF"> <td><div align="center">密码:</div></td> <td><input name="user_pwd" type="password" id="user_pwd"></td> </tr> <tr bgcolor="#FFFFFF"> <td> </td> <td><input type="submit" name="Submit" value="登 录"> <input type="button" name="Submit" value="关 闭" onClick="window.close()"> <input name="do" type="hidden" id="do" value="ok"></td> </tr> </form> <tr> <td colspan="2"><div align="right">v1.00</div></td> </tr> </table> <%End If%> 返回类别: 教程 上一教程: 一个简朴的网上书城的例子(七) 下一教程: XML加ASP实现网页“本地化” 您可以阅读与"ASP实现单页查询数据库"相关的教程: · 用ASP和WML来实现数据库查询 · 利用ASP和WML来实现数据库查询 · ASP中查询数据库记录写入XML文件示例 · 用ASP实现对ORACLE数据库的操作 · 用纯ASP代码实现图片上传并存入数据库中(二) |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |