loginx.asp

来自「大型人才程序网站程序」· ASP 代码 · 共 20 行

<% Response.Buffer=true %>
<!--#include file="../inc/dbconn1.inc"-->
<% uname=request("unames")
   pwd=request("pwds")
   mcs1=request("mcs")
   zws1=request("zws")
   ids1=request("ids")
   set rs=server.createobject("adodb.recordset")
   sql="select * from danwei where loginmc='"&uname&"' and loginmm='"&pwd&"'"
   rs.open sql,conn,3,3
   if rs.eof then
   response.write"<SCRIPT language=JavaScript>alert('错误的用户名或密码，请重新输入！');"
   response.write"javascript:history.go(-1)</SCRIPT>"
   else
   rs.close
   set rs=nothing
   session("cuid")=uname
   response.Redirect "grjl.asp?idsx="&ids1&""
   end if
 %>