?? 用戶添加.asp
字號:
<%
dim Pri
mkmc=request("mkmc")
Pri=CheckUrl("用戶添加")
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>用戶添加</title>
</head>
<body background="../images/Bkg35.jpg">
<p><font color="#ff0000" size="6">用戶管理</font><br><img src="../images/用戶.bmp" width="700"></p>
<div align="center">
<OBJECT classid=ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33 height=2 id=RDS1
style="HEIGHT: 2px; WIDTH: 8px" width=8><PARAM NAME="ExecuteOptions" VALUE="2"><PARAM NAME="FetchOptions" VALUE="3"><PARAM NAME="SortDirection" VALUE="-1"><PARAM NAME="InternetTimeout" VALUE="300000"></OBJECT>
<table border="0" cellpadding="0" cellspacing="0" width="367" bgcolor="#FED5C9">
<tr>
<td width="355" valign="center"> <p><strong><font face="宋體" size="4">用 戶 名:</font></strong>
<input name="USERNAME" style="FONT-FAMILY: 宋體; FONT-SIZE: 17px"
></p>
<p><strong><font face="宋體" size="4">用戶口令:</font></strong> <input
type="password" name="USERPASS" style="FONT-FAMILY: 宋體; FONT-SIZE: 17px"
></p>
<p><strong><font face="宋體2" size="4">確認口令:</font></strong> <input
type="password" name="ENTERPASS" style="FONT-FAMILY: 宋體; FONT-SIZE: 17px"
></p>
<p><font face="宋體" size="4"><strong>描
述:</strong></font> <input
name="memo" style="FONT-FAMILY: 宋體; FONT-SIZE: 17px"
></p>
<p align="center"><input type="submit" value="添加用戶" name="insert"
onclick="insert_click()" style="FONT-FAMILY: 宋體; FONT-SIZE: 15px">
<input type="reset" value="取 消" name="CANCLE"
style="FONT-FAMILY: 宋體; FONT-SIZE: 15px"></p></td>
</tr>
</table>
</div>
<script language="vbscript">
sub insert_click()
rds1.Server = "http://<%=request.servervariables("server_name")%>"
rds1.Connect = "database=school;uid=sa;pwd=;dsn=school"
if len(rtrim(USERNAME.value))=0 or trim(USERNAME.value)="" then
msgbox "用戶名不能為空,請輸入用戶名!",,"提示窗口"
exit sub
END IF
rds1.SQL="SELECT * FROM USERSET WHERE 用戶名='"&trim(USERNAME.value)&"'"
rds1.ExecuteOptions = 1
rds1.Refresh
if rds1.Recordset.recordcount>0 then
msgbox "用戶名已存在,請重新輸入用戶名!",,"提示窗口"
exit sub
end if
IF TRIM(USERPASS.value)<>TRIM(ENTERPASS.value) THEN
msgbox "密碼輸入錯誤,請重新輸入!",,"提示窗口"
exit sub
end if
rds1.SQL="INSERT INTO USERSET(用戶名,用戶口令,描述) VALUES('"&TRIM(LEFT(USERNAME.VALUE,8))&"','"&TRIM(LEFT(USERPASS.VALUE,8))&"','"&TRIM(LEFT(memo.VALUE,10))&"')"
rds1.ExecuteOptions = 1
rds1.Refresh
IF err.number=0 THEN
MSGBOX "添加用戶成功!",,"提示窗口"
END IF
end sub
</script>
<p align="right"><a href="用戶管理.asp"><img src="../images/back.gif" border="0"alt="返回用戶管理主頁"></a>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -