📄 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"))
dimarr "Gender"
dimarr "lq"
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)
rs_edit = connopen(sql)
If isArray(rs_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=rs_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 rs_edit(i,0)<>"" Then res Replace(rs_edit(i,0),"<；br>；",Chr(13)),0
Else
res rs_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(rs_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(rs_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 rs_edit(19,0)<>"" Then res Replace(rs_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 + -