?? 用戶授權.asp
字號:
<%
username=request("username")
userpass=request("userpass")
enterpass=request("enterpass")
memo=request("memo")
username=ltrim(rtrim(username))
if username="" or len(username)=0 then
Response.Write "用戶名不能為空<a href=用戶添加.htm>返回</a>"
Response.end
end if
set conn=server.CreateObject("adodb.connection")
conn.Open "database=school;uid=sa;pwd=;dsn=school"
set rs=server.CreateObject("adodb.recordset")
sql="select * from userset where 用戶名='"&username&"'"
rs.Open sql,conn,3
if rs.RecordCount>0 then
Response.Write "此用戶名已被注冊,用戶名不能同名,請重新輸入<a href=用戶添加.htm>返回</a>"
Response.end
END IF
RS.Close
IF USERPASS<>ENTERPASS THEN
Response.Write "用戶密碼錯誤,請重新輸入<a href=用戶添加.htm>返回</a>"
Response.end
END IF
SQL="INSERT USERSET(用戶名,用戶口令,描述) VALUES('"&USERNAME&"','"&USERPASS&"','"&MEMO&"')"
RS.Open SQL,CONN,3
%>
<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="../imagesBkg35.jpg">
<p><font color="#0000FF" size="6">用戶授權</font></p>
<hr color="#0000ff">
<div align="center"><center>
<OBJECT classid=clsid:BD96C556-65A3-11D0-983A-00C04FC29E33 height=14 id=rds1
width=14>
<PARAM NAME="ExecuteOptions" VALUE="2">
<PARAM NAME="FetchOptions" VALUE="3">
<PARAM NAME="SortDirection" VALUE="-1">
<PARAM NAME="InternetTimeout" VALUE="500000">
</OBJECT>
<table border="2" cellpadding="2" cellspacing="3" width="659" height="871">
<tr>
<td width="143" height="23"><p align="center"><strong><font face="楷體_GB2312" size="4">用戶名</font></strong></td>
<td width="492" height="23"><input type="text" name="user_name" size="27"
VALUE="<%=USERNAME%>" readonly style="font-family: 宋體; font-size: 15"></td>
</tr>
<tr>
<td width="143" height="23"><p align="center"><strong><font face="楷體_GB2312" size="4">用戶口令</font></strong></td>
<td width="492" height="23"><input type="password" name="user_pass" size="27"
VALUE="<%=USERPASS%>" readonly style="font-family: 宋體; font-size: 15"></td>
</tr>
<tr>
<td width="143" height="23"><p align="center"><strong><font face="楷體_GB2312" size="4">用戶確認口令</font></strong></td>
<td width="492" height="23"><input type="password" name="enter_pass" size="27"
VALUE="<%=ENTERPASS%>" readonly style="font-family: 宋體; font-size: 15"></td>
</tr>
<tr>
<td width="143" height="23"><p align="center"><strong><font face="楷體_GB2312" size="4">描述</font></strong></td>
<td width="492" height="23"><input type="text" name="user_memo" size="27"
VALUE="<%=MEMO%>" readonly style="font-family: 宋體; font-size: 15"></td>
</tr>
<tr>
<td width="575" colspan="2" height="729">學生管理<p> <input type="checkbox"
name="C1" value="沒授權" ONCLICK="C1_CLICK()">基本資料 <input
type="checkbox" name="C2" value="沒授權" ONCLICK="C2_CLICK()" >個人檔案
<input type="checkbox" name="C3" value="沒授權" ONCLICK="C3_CLICK()">班級管理  
<input type="checkbox" name="C46" value="ON" ONCLICK="C46_CLICK()">學生學號
<input type="checkbox" name="C4" value="沒授權" ONCLICK="C4_CLICK()">初始設置</p>
<p>成績管理</p>
<p> <input type="checkbox" name="C5" value="沒授權" ONCLICK="C5_CLICK()">成績輸入
<input type="checkbox" name="C6" value="沒授權" ONCLICK="C6_CLICK()">綜合報表
<input type="checkbox" name="C7" value="沒授權" ONCLICK="C7_CLICK()"
>成績查詢 <input type="checkbox"
name="C8" value="沒授權" ONCLICK="C8_CLICK()">統計分析</p>
<p> <input type="checkbox" name="C9" value="沒授權" ONCLICK="C9_CLICK()">課程設置</p>
<p>教師管理</p>
<p> <input type="checkbox" name="C10" value="沒授權" ONCLICK="C10_CLICK()">基本資料
<input type="checkbox" name="C11" value="沒授權" ONCLICK="C11_CLICK()">個人檔案
<input type="checkbox" name="C12" value="沒授權" ONCLICK="C12_CLICK()">初始設置</p>
<p>圖書管理</p>
<p> <input type="checkbox" name="C13" value="沒授權" ONCLICK="C13_CLICK()">圖書類別設置 <input
type="checkbox" name="C14" value="沒授權" ONCLICK="C14_CLICK()">圖書借閱登記 <input
type="checkbox" name="C15" value="沒授權" ONCLICK="C15_CLICK()">圖書借還 <input type="checkbox"
name="C16" value="沒授權" ONCLICK="C16_CLICK()">待借圖書目錄瀏覽</p>
<p> <input type="checkbox" name="C17" value="沒授權" ONCLICK="C17_CLICK()">打印催還單 <input
type="checkbox" name="C18" value="沒授權" ONCLICK="C18_CLICK()">借書記錄維護 <input
type="checkbox" name="C19" value="沒授權" ONCLICK="C19_CLICK()">圖書目錄查詢 <input type="checkbox"
name="C20" value="沒授權" ONCLICK="C20_CLICK()">查詢借書證目錄 </p>
<p> <input type="checkbox" name="C21" value="沒授權" ONCLICK="C21_CLICK()">圖書庫存查詢 <input
type="checkbox" name="C22" value="沒授權" ONCLICK="C22_CLICK()">查詢外借圖書目錄 <input
type="checkbox" name="C23" value="沒授權" ONCLICK="C23_CLICK()">查詢圖書總冊數 <input type="checkbox"
name="C24" value="沒授權" ONCLICK="C24_CLICK()">打印圖書目錄</p>
<p> <input type="checkbox" name="C25" value="沒授權" ONCLICK="C25_CLICK()">打印圖書庫存 <input
type="checkbox" name="C26" value="沒授權" ONCLICK="C26_CLICK()">打印借書證目錄 <input
type="checkbox" name="C27" value="沒授權" ONCLICK="C27_CLICK()">打印外借圖書目錄 <input
type="checkbox" name="C28" value="沒授權" ONCLICK="C28_CLICK()">圖書增加</p>
<p> <input type="checkbox" name="C29" value="沒授權" ONCLICK="C29_CLICK()">輸入圖書內容 <input
type="checkbox" name="C30" value="沒授權" ONCLICK="C30_CLICK()">圖書目錄維護 <input
type="checkbox" name="C31" value="沒授權" ONCLICK="C31_CLICK()">圖書分類輸入 <input
type="checkbox" name="C32" value="沒授權" ONCLICK="C32_CLICK()">出版社輸入</p>
<p> <input type="checkbox" name="C33" value="沒授權" ONCLICK="C33_CLICK()">發放借書證
<input type="checkbox" name="C34" value="沒授權" ONCLICK="C34_CLICK()">收回借書證
<input type="checkbox" name="C35" value="沒授權" ONCLICK="C35_CLICK()">更換IC卡
<input type="checkbox" name="C36" value="沒授權" ONCLICK="C36_CLICK()">借書證維護</p>
<p> <input type="checkbox" name="C37" value="沒授權" ONCLICK="C37_CLICK()">讀者類別設置 <input
type="checkbox" name="C38" value="沒授權" ONCLICK="C38_CLICK()">查IC卡更換記錄 </p>
<p>校產管理</p>
<p> <input type="checkbox" name="C39" value="沒授權" ONCLICK="C39_CLICK()">基本資料
<input type="checkbox" name="C40" value="沒授權" ONCLICK="C40_CLICK()">校產管理
<input type="checkbox" name="C41" value="沒授權" ONCLICK="C41_CLICK()">報表輸出
<input type="checkbox" name="C42" value="沒授權" ONCLICK="C42_CLICK()">初始設置
</p>
<p><input type="checkbox" name="C43" value="沒授權" ONCLICK="C43_CLICK()">公告欄</p>
<p><input type="checkbox" name="C44" value="沒授權" ONCLICK="C44_CLICK()">討論園地</p>
<p><input type="checkbox" name="C45" value="沒授權" ONCLICK="C45_CLICK()">電子郵件</p>
<p> </td>
</tr>
</table>
</center></div>
<p align="center"><input type="button" value="用戶授權" name="update"
ONCLICK="UPDATE_CLICK()" style="font-family: 宋體; font-size: 15">
<input
type="button" value="取 消" name="CANCLE" style="font-family: 宋體; font-size: 15"></p>
<SCRIPT LANGUAGE="VBSCRIPT">
i1="沒授權"
i2="沒授權"
i3="沒授權"
i4="沒授權"
i5="沒授權"
i6="沒授權"
i7="沒授權"
i8="沒授權"
i9="沒授權"
i10="沒授權"
i11="沒授權"
i12="沒授權"
i13="沒授權"
i14="沒授權"
i15="沒授權"
i16="沒授權"
i17="沒授權"
i18="沒授權"
i19="沒授權"
i20="沒授權"
i21="沒授權"
i22="沒授權"
i23="沒授權"
i24="沒授權"
i25="沒授權"
i26="沒授權"
i27="沒授權"
i28="沒授權"
i29="沒授權"
i30="沒授權"
i31="沒授權"
i32="沒授權"
i33="沒授權"
i34="沒授權"
i35="沒授權"
i36="沒授權"
i37="沒授權"
i38="沒授權"
i39="沒授權"
i40="沒授權"
i41="沒授權"
i42="沒授權"
i43="沒授權"
i44="沒授權"
i45="沒授權"
i46="沒授權"
SUB C1_CLICK()
IF C1.checked=TRUE THEN
C1.value="已授權"
i1=c1.value
else
c1.value="沒授權"
i1=c1.value
end if
END SUB
SUB C46_CLICK()
IF C46.checked=TRUE THEN
C46.value="已授權"
i46=c46.value
else
c46.value="沒授權"
i46=c46.value
end if
END SUB
SUB C2_CLICK()
IF C2.checked=TRUE THEN
C2.value="已授權"
i2=c2.value
else
c2.value="沒授權"
i2=c2.value
end if
END SUB
SUB C3_CLICK()
IF C3.checked=TRUE THEN
C3.value="已授權"
i3=c3.value
else
c3.value="沒授權"
i3=c3.value
end if
END SUB
SUB C4_CLICK()
IF C4.checked=TRUE THEN
C4.value="已授權"
i4=c4.value
else
c4.value="沒授權"
i4=c4.value
end if
END SUB
SUB C5_CLICK()
IF C5.checked=TRUE THEN
C5.value="已授權"
i5=c5.value
else
c5.value="沒授權"
i5=c5.value
end if
END SUB
SUB C6_CLICK()
IF C6.checked=TRUE THEN
C6.value="已授權"
i6=c6.value
else
c6.value="沒授權"
i6=c6.value
end if
END SUB
SUB C7_CLICK()
IF C7.checked=TRUE THEN
C7.value="已授權"
i7=c7.value
else
c7.value="沒授權"
i7=c7.value
end if
END SUB
SUB C8_CLICK()
IF C8.checked=TRUE THEN
C8.value="已授權"
i8=c8.value
else
c8.value="沒授權"
i8=c8.value
end if
END SUB
SUB C9_CLICK()
IF C9.checked=TRUE THEN
C9.value="已授權"
i9=c9.value
else
c9.value="沒授權"
i9=c9.value
end if
END SUB
SUB C10_CLICK()
IF C10.checked=TRUE THEN
C10.value="已授權"
i10=c10.value
else
c10.value="沒授權"
i10=c10.value
end if
END SUB
SUB C11_CLICK()
IF C11.checked=TRUE THEN
C11.value="已授權"
i11=c11.value
else
c11.value="沒授權"
i11=c11.value
end if
END SUB
SUB C12_CLICK()
IF C12.checked=TRUE THEN
C12.value="已授權"
i12=c12.value
else
c12.value="沒授權"
i12=c12.value
end if
END SUB
SUB C13_CLICK()
IF C13.checked=TRUE THEN
C13.value="已授權"
i13=c13.value
else
c13.value="沒授權"
i13=c13.value
end if
END SUB
SUB C14_CLICK()
IF C14.checked=TRUE THEN
C14.value="已授權"
i14=c14.value
else
c14.value="沒授權"
i14=c14.value
end if
END SUB
SUB C15_CLICK()
IF C15.checked=TRUE THEN
C15.value="已授權"
i15=c15.value
else
c15.value="沒授權"
i15=c15.value
end if
END SUB
SUB C16_CLICK()
IF C16.checked=TRUE THEN
C16.value="已授權"
i16=c16.value
else
c16.value="沒授權"
i16=c16.value
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -