📄 usercode_edit_login.asp

📁 ASP程序实现的科技期刊系统
💻 ASP
字号:
<%
UserCode=trim(Request.Form("UserCode"))
if userCode="" then
%>
<html>
<head>
<title>修改资料</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
td{font-size:9pt}
.button
{
    BACKGROUND-COLOR: #e6f4ff;
    BORDER-BOTTOM: #0099ff 1px solid;
    BORDER-LEFT: #0099ff 1px solid;
    BORDER-RIGHT: #0099ff 1px solid;
    BORDER-TOP: #0099ff 1px solid;
    COLOR: #336699;
    HEIGHT: 18px;
    TEXT-ALIGN: center
}

</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table style="font-size:9pt" width="400" border="0" align="center" bordercolor="#FF0000" cellpadding="0" cellspacing="1" bgcolor="#3399FF">
  <form name="form1" method="post" action="/user/Usercode_edit_Login.asp">
    <tr bgcolor="#3C9DCC"> 
      <td colspan="2" height="18" align="center"> <font color="#FFFFFF">=======　　修改资料　　=======</font></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="125" height="18" align="center">请输入您的用户编码：</td>
      <td width="266" height="18"> 
        <input type="text" name="UserCode" maxlength="6">
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="125" height="18">请输入您的密码：</td>
      <td width="266" height="18"> 
        <input type="text" name="Password" maxlength="6">
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td colspan="2" height="18" align=center> 
        <input type="submit" name="Submit3" value="提交" onClick="return checkfun1()" class="button">
        <input type="reset" name="Submit22" value="重置" class="button">
        <input type="button" name="Submit4" value="返回" class="button" onclick="back()">
      </td>
    </tr>
    <tr bgcolor="#3C9DCC"> 
      <td colspan="2" height="2"></td>
    </tr>
  </form>
</table>
<script language="vbscript">
	function checkfun1()   '校验输入用户编码表单
		checkfun1=true
		if not form1.UserCode.value<>""  then 
			checkfun1=false
			window.alert "请输入用户编码！"
			exit function
		end if
		if not form1.Password.value<>""  then 
			checkfun1=false
			window.alert "请输入您的密码！"
			exit function
		end if
	end function
	function back()
	history.back 
	end function
</script>
</body>
</html>

<%else'校验用户名，密码代码%>
<!--#include file="../Include/AdoConn.asp"-->
<%
dim UserCode,Password
	UserCode=trim(Request.Form("UserCode"))
	Password=trim(Request.Form("Password"))
dim objres,strsql
set objres=server.CreateObject ("ADODB.recordset")
strsql="select * from XT_VC_User where 用户编码='"+Usercode+"'"
objres.Open strsql,strconn

if objres.EOF then
	Response.Redirect "../index.asp?info=无此用户,请注册!"
	else
		if not trim(objres("密码"))=trim(password) then
			Response.Redirect "../index.asp?info=您的密码错误,请重新登录!"
		else
			session("usercode")=objres("用户编码")
			session("username")=objres("用户姓名")
			session("departcode")=objres("部门编码")
			if objres("用户类型")="个人" then
			Response.Redirect "../user/UserCode_Edit.asp?edit=edit&code="+UserCode
			end if
			if objres("用户类型")="企业" then
			Response.Redirect "../user/Company_Edit.asp?edit=edit&code="+UserCode
			end if
			if objres("用户类型")="主管部门" then
			Response.Redirect "../system/TopDepart_Edit.asp?edit=edit&code="+UserCode
			end if
		end if
end if 
%>
<%end if%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -