?? admin_members_inc.asp
字號:
<%
dim uname,Gender,Birthplace,Birth,IdentityNO,zkz,bmh,cityinfo,l1,l2,l3,l4,l5,addr,phone,tel,con,password
Dim lq,lqinfo
action=che(request("action"))
id=che(request("id"))
Dim members(17)
members(0)="姓名"
members(1)="密碼"
members(2)="性別"
members(3)="籍貫"
members(4)="出生日期"
members(5)="身份證號"
members(6)="高考準考證號"
members(7)="高考報名號"
members(8)="高考所在省市"
members(9)="語文"
members(10)="數學"
members(11)="英語"
members(12)="綜合"
members(13)="其它成績信息"
members(14)="家庭住址"
members(15)="家庭電話"
members(16)="手機"
members(17)="其它說明"
Dim memberslm(17)
memberslm(0)="uname"
memberslm(1)="密碼"
memberslm(2)="Gender"
memberslm(3)="Birthplace"
memberslm(4)="Birth"
memberslm(5)="IdentityNO"
memberslm(6)="zkz"
memberslm(7)="bmh"
memberslm(8)="cityinfo"
memberslm(9)="l1"
memberslm(10)="l2"
memberslm(11)="l3"
memberslm(12)="l4"
memberslm(13)="l5"
memberslm(14)="addr"
memberslm(15)="phone"
memberslm(16)="tel"
memberslm(17)="con"
'****************************************************
'名稱:jstable
'功能:接收表單提交過來的值
'****************************************************
Sub jstable()
If action="save" Then
lq = che(request("lq"))
lqinfo=che(CutStr2(request("lqinfo"),100))
Else
password = md5(md5(che(request("password"))))
End If
End Sub
'****************************************************
'名稱:sqltable
'功能:將值提交入庫
'參數:types 為空或 "add" 判斷是修改記錄還是添加記錄
'****************************************************
Sub sqltable(types)
If action="save" Then
rs("lq") = lq
rs("lqinfo") = lqinfo
Else
If PassWord<>"" And password<>"********" Then rs("PassWord") = PassWord
End If
End Sub
'****************************************************
'名稱:listinfo
'功能:列表
'****************************************************
Sub listinfos()
%>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab2">
<tr align="center">
<th width="5%" rowspan="2" style="text-align:center;text-indent: 4px;">選</th>
<th width="25%" colspan="3" style="text-align:center;">個人信息</th>
<th width="30%" colspan="5" style="text-align:center;">高考信息</th>
<th width="35%" colspan="3" style="text-align:center;">聯系方式</th>
<th width="5%" rowspan="2">狀態</th>
<th width="1" rowspan="2"></th>
</tr>
<tr align="center">
<th width="10%">姓名</th>
<th width="5%">性別</th>
<th width="10%">籍貫</th>
<th width="10%">高考報名號</th>
<th width="5%">語文</th>
<th width="5%">數學</th>
<th width="5%">英語</th>
<th width="5%">綜合</th>
<th width="15%">家庭地址</th>
<th width="10%">家庭電話</th>
<th width="10%">手機</th>
</tr>
<%
sql="select id,uname,Gender,Birthplace,bmh,cityinfo,l1,l2,l3,l4,addr,phone,tel,lq from Reg_Userinfo "&Sql_Condition&" order by id desc"
strFileName="admin_Members.asp?action="&action&"&types="&types&"&keyword="&keyword
colnum="12"
formaction="admin_Members.asp?action=del"
sqllist sql,colnum,strFileName,formaction
If outcom=True Then
showContent
showdelpages
End If
%>
</TABLE>
<%
End Sub
'****************************************************
'名稱:showContent
'功能:翻頁列表輸出
'****************************************************
sub showContent
dim i
i=0
do while not rs.eof
Gender=Rs(2)
If IsNumeric(Rs(2)) And Rs(2)<3 And Rs(2)>0 Then Gender=arr_Gender(Gender)
%>
<tr align="left">
<td class="art_info2" style="text-align:center;text-indent: 4px;">
<input name='id' type='checkbox' class="chek" onclick="unselectall()" id="ArticleID" value='<%=Rs(0)%>' style=" border: 0px">
</td>
<td><A HREF="admin_Members.asp?action=lookinfo&id=<%=Rs(0)%>"><%=Rs(1)%></A></td>
<td style="text-align:center;"><%=Gender%></td>
<td><%=Rs(3)%></td>
<td><%=Rs(4)%></td>
<td style="text-align:center;"><%=Rs(6)%></td>
<td style="text-align:center;"><%=Rs(7)%></td>
<td style="text-align:center;"><%=Rs(8)%></td>
<td style="text-align:center;"><%=Rs(9)%></td>
<td><%=Rs(10)%></td>
<td><%=Rs(11)%></td>
<td><%=Rs(12)%></td>
<td><%=arr_lq(Rs(13))%></td>
<td></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end Sub
'****************************************************
'名稱:editinfos
'功能:編輯信息
'****************************************************
Sub editinfos()
Sql_Lists="uname,password,Gender,Birthplace,Birth,IdentityNO,zkz,bmh,cityinfo,l1,l2,l3,l4,l5,addr,phone,tel,con,lq,lqinfo"
Sql_tables="Reg_Userinfo"
Sql_Conditions=" ID = "&id
sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
member_edit = connopen(sql)
If isArray(member_edit)=False Then errormsg "參數錯誤"
%>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<FORM METHOD=POST ACTION="admin_Members.asp?action=mod">
<INPUT TYPE="hidden" NAME="id" value="<%=id%>">
<TR><TD colspan=3 class="art_tit zq"><A HREF="admin_Members.asp?action=list">返回<%=nowtit%>列表</A></TD></TR>
<%
For i=0 To 17
If i=0 Then res "<TR><TD class=""zq"" colspan=3><B>個人信息</B></TD></TR>",1
If i=5 Then res "<TR><TD class=""zq"" colspan=3><B>證件號碼</B></TD></TR>",1
If i=6 Then res "<TR><TD class=""zq"" colspan=3><B>高考信息</B></TD></TR>",1
If i=14 Then res "<TR><TD class=""zq"" colspan=3><B>聯系信息</B></TD></TR>",1
res "<TR><TD class=""zq"" width=""5%""> </TD><TD class=""zq"" width=""20%"">"&members(i)&"</TD><TD> ",0
If i=2 Then
Gender=member_edit(i,0)
If IsNumeric(Gender) And Gender<3 And Gender>0 Then Gender=arr_Gender(Gender)
res Gender,0
ElseIf i=1 Then
res "<INPUT TYPE=""password"" NAME=""password"" value=""********"" sytle=""height:15px;""><BR> <INPUT TYPE=""submit"" value=""確認修改"">",0
ElseIf i=13 Or i=17 Then
If member_edit(i,0)<>"" Then res Replace(member_edit(i,0),"<；br>；",Chr(13)),0
Else
res member_edit(i,0),0
End If
res "</TD></TR>",1
next
%>
</FORM>
<FORM METHOD=POST ACTION="admin_Members.asp?action=save">
<TR><TD class="zq" colspan=3><B>錄取信息</B></TD></TR>
<TR><TD class="zq"> </TD>
<TD class="zq">錄取狀態</TD><TD class="zq">
<label><INPUT TYPE="radio" NAME="lq" value=1 style="border:0;width:15px;height:15px;"
<%If Int(member_edit(18,0))=1 Then res " checked ",0%>> 正式錄取</label>
<label><INPUT TYPE="radio" NAME="lq" value=0 style="border:0;width:15px;height:15px;"
<%If Int(member_edit(18,0))<>1 Then res " checked ",0%>> 處理中</label></TD></TR>
<TR><TD class="zq"> </TD>
<TD class="zq">相關說明</TD><TD class="zq">
<TEXTAREA NAME="lqinfo" ROWS="10" COLS="" style="width:460px;"><%If member_edit(19,0)<>"" Then res Replace(member_edit(19,0),"<；br>；",Chr(13)),0 %></TEXTAREA></TD></TR>
<TR><TD class="zq"> </TD><TD class="zq"> </TD>
<TD class="zq">
<INPUT TYPE="hidden" NAME="id" value="<%=id%>"><INPUT TYPE="submit" value="提交設置信息"></TD></TR>
</FORM>
<TR><TD class="zq" colspan=3><B>當前操作</B> <A HREF="admin_Members.asp?action=list">返回報名列表</A>
<A HREF="">導出到WORD</A>
<A HREF="admin_Members.asp?action=del&id=<%=id%>">刪除當前信息</A>
</TD></TR>
</TABLE>
<%
End Sub
'****************************************************
'名稱:check_users
'功能:判斷帳號是否存在,如果存在返回True 否則反之
'參數:UserIdstr 用戶帳號
'****************************************************
Function check_users(UserIdstr)
check_users=False
Sql_Lists="id"
Sql_tables="Reg_Userinfo"
Sql_Conditions=" UserId = '"&UserIdstr&"'"
sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
user_check = connopen(sql)
If isArray(user_check) Then check_users=True
End Function
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -