一聚教程网:一个值得你收藏的教程网站

热门教程

asp登录代码

时间:2022-07-02 22:47:44 编辑:袖梨 来源:一聚教程网

没事写了一个简单的用户登录代码,也贴出来吧



<%
 myname =Html_encode(Request.Form("myname"))
 mypass =Html_encode(Request.Form("mypass"))
 
 If myname="" or mypass="" Then
  Response.Write("")
 Elseif len(myanme)>15 or len(mypass)>15 Then
  Response.Write("")
 Else
  Sql="select * from stu_user where user_id='"&myname&"' and user_pwd='"&mypass&"'"
  Call Db_connect()
  Set Rs=Conn.execute(Sql)
  If Not Rs.eof Then
   Session("Uid")=Rs("user_id")
   Session("Udj")=Rs("user_dj")
   Session("Stuname")=Rs("User_name")
   Response.Redirect("iframe.asp")
  
  Else
   Response.Write("")
  End if
 End If
 
%>

热门栏目