📄 membermng.asp
字号:
<%@LANGUAGE="VBScript"%>
<!--#include file="../public/wxl_conn.asp"-->
<!--#include file="../public/PublicFunction.asp"-->
<%
response.expires = 0
Const PageSize=18
Page=CInt(request("Page"))
if Page<=0 then Page=1
wxl=request("wxl")
int_mbrID=request("int_mbrID")
%>
<script language="javascript">
function confirmDel(id){
if ( confirm("你确定要删除吗？")) {
window.location.href = "<%=UrlFile%>?wxl=del&int_mbrID=" + id
}
}
</script>
<%
'显示已有会员列表
if wxl="" then
ShowLookHtml
'显示增加会员的网页
elseif wxl="ShowHtml" then
dim sql11(12)
sql11(4)="-"
sql11(5)="-"
sql11(6)="-"
sql11(7)="-"
sql11(8)="-"
ShowData sql11
'增加会员
elseif wxl="Add" then
str_mbrName=trim(request("str_mbrName"))
str_mbrLoginName=trim(request("str_mbrLoginName"))
str_mbrLoginPwd=trim(request("str_mbrLoginPwd"))
str_mbrPwdQuestion=trim(request("str_mbrPwdQuestion"))
str_mbrPwdAnswer=trim(request("str_mbrPwdAnswer"))
str_mbrPhone=trim(request("str_mbrPhone"))
str_mbrOICQ=trim(request("str_mbrOICQ"))
str_mbrAddress=trim(request("str_mbrAddress"))
str_mbrZIP=trim(request("str_mbrZIP"))
str_mbrEmail=trim(request("str_mbrEmail"))
Str_mbrCity=trim(request("Str_mbrCity"))
Str_mbrSex=request("str_mbrSex")
set sql=Server.Createobject("ADODB.Recordset")
if int_mbrID<>"" then
Query="select * from web_Member where int_mbrID<>"&int_mbrID&" and str_mbrLoginName='"&str_mbrLoginName&"'"
else
Query="select * from web_Member where str_mbrLoginName='"&str_mbrLoginName&"'"
end if
sql.open Query,conn,1,1
if not sql.eof then Back "登录名["&str_mbrLoginName&"]已经存在!请重新选择"
sql.close
if int_mbrID<>"" then
sql.open "select * from web_Member where int_mbrID="&int_mbrID,conn,3,2
int_sLogType=1
else
int_sLogType=0
int_mbrID=GetID("select Max(int_mbrID)+1 from web_Member")
sql.open "select * from web_Member where int_mbrID="&int_mbrID,conn,3,2
sql.AddNew
sql("int_mbrID")=int_mbrID
sql("int_mberType")=1
sql("dtm_IssueTime")=now
sql("dtm_mberLast")=now
sql("int_mberLoginNum")=0
sql("int_mbrMoney")=0
end if
sql("str_mbrName")=str_mbrName
sql("str_mbrLoginName")=str_mbrLoginName
sql("str_mbrLoginPwd")=Encrypt(str_mbrLoginPwd)
sql("str_mbrPwdQuestion")=str_mbrPwdQuestion
sql("str_mbrPwdAnswer")=str_mbrPwdAnswer
sql("Str_mbrCity")=Str_mbrCity
sql("str_mbrPhone")=str_mbrPhone
sql("str_mbrOICQ")=str_mbrOICQ
sql("str_mbrAddress")=str_mbrAddress
sql("str_mbrEmail")=str_mbrEmail
sql("str_mbrZIP")=str_mbrZIP
sql("str_mbrSex")=str_mbrSex
sql.update
sql.close
%>
<script language='javascript'>
alert('会员成功增加!');
window.location.href = "<%=UrlFile&"?MenuId="&MenuId%>";
</script>
<%
'查看会员
elseif wxl="Look" then
ShowContent()
'修改会员
elseif wxl="Modi" then
Query="select * from web_Member where int_mbrID="&int_mbrID
set sql=conn.Execute(Query)
ShowData sql
'删除会员
elseif wxl="del" then
Query="delete from web_Member where int_mbrID="&int_mbrID
conn.Execute(Query)
%>
<script language='javascript'>
alert('指定会员成功删除');
window.location.href = "<%=UrlFile&"?MenuId="&MenuId%>";
</script>
<%
end if
sub ShowData(sql)
HtmlHead("会员管理")
%>
<SCRIPT language=JavaScript>
<!--
function checkvalue() {
aa=document.form1
if (aa.str_mbrName.value=="") {
window.alert ("请输入名称!"); aa.str_mbrName.focus();return false}
if (aa.str_mbrLoginName.value=="") {
window.alert ("请输入登录名!"); aa.str_mbrLoginName.focus();return false}
if (aa.str_mbrLoginPwd.value=="") {
window.alert ("请输入登录密码!"); aa.str_mbrLoginPwd.focus();return false}
if (aa.str_mbrLoginPwd.value!=aa.str_mbrLoginPwd1.value) {
window.alert ("确认密码不相同!"); aa.str_mbrLoginPwd1.focus();return false}
if (aa.str_mbrPwdQuestion.value=="") {
window.alert ("请输入密码提示!"); aa.str_mbrPwdQuestion.focus();return false}
if (aa.str_mbrPwdAnswer.value == "" ) {
window.alert ("请输入密码回答!"); aa.str_mbrPwdAnswer.focus();return false}
if (aa.str_mbrEmail.value == "" ) {
window.alert ("请输入电子邮件!"); aa.str_mbrEmail.focus();return false}
}
//-->
</SCRIPT>
<table border="1" width="550" cellpadding="3" cellspacing="0" bgcolor="#D6D3CE" bordercolordark="#FFFFFF" bordercolorlight="#808080" align="center" >
<form name=form1 action="<%=UrlFile%>" method="POST" onSubmit='return checkvalue();'>
<tr>
<td width="80" align="right">会员名称：</td>
<td align="left"><input type='text' name='str_mbrName' value='<%=sql(1)%>' maxlength=100><font color=red>*</font></td>
<td width="80" align="right">登 录 名：</td>
<td align="left"><input name="str_mbrLoginName" size="20" value='<%=sql(2)%>' maxlength=50><font color=red>*</font></td>
</tr>
<tr>
<td width="80" align="right">登录密码：</td>
<td align="left"><input type="password" name="str_mbrLoginPwd" size="20" value='<%=Encrypt(sql(3))%>' maxlength=50><font color=red>*</font></td>
<td width="80" align="right">确认密码：</td>
<td align="left"><input type="password" name="str_mbrLoginPwd1" size="20" value='<%=Encrypt(sql(3))%>' maxlength=50><font color=red>*</font></td>
</tr>
<tr>
<td width="80" align="right">密码提示：</td>
<td align="left"><input type='text' name='str_mbrPwdQuestion' value='<%=sql(4)%>' maxlength=50><font color=red>*</font></td>
<td width="80" align="right">密码回答：</td>
<td align="left"><input name="str_mbrPwdAnswer" size="20" value='<%=sql(5)%>' maxlength=50><font color=red>*</font></td>
</tr>
<tr>
<td width="80" align="right">性 别：</td>
<td align="left"><INPUT type=radio value="男" name=str_mbrSex checked>男<INPUT type=radio value='女' name=str_mbrSex <%if sql(6)="女" then response.write "女"%>>女</td>
<td width="80" align="right">居住城市：</td>
<td align="left"><input name="str_mbrCity" size="20" value='<%=sql(7)%>' maxlength=50></td>
</tr>
<tr>
<td width="80" align="right">联系电话：</td>
<td align="left"><input type='text' name='str_mbrPhone' value='<%=sql(8)%>' maxlength=50></td>
<td width="80" align="right">OICQ：</td>
<td align="left"><input name="str_mbrOICQ" size="20" value='<%=sql(9)%>' maxlength=50></td>
</tr>
<tr>
<td width="80" align="right">通讯地址：</td>
<td align="left" colspan=3><input type='text' name='str_mbrAddress' value='<%=sql(10)%>' size=60 maxlength=200></td>
</tr>
<tr>
<td width="80" align="right">邮政编码：</td>
<td align="left"><input type='text' name='str_mbrZIP' value='<%=sql(11)%>' maxlength=10></td>
<td width="80" align="right">电子邮件：</td>
<td align="left"><input name="str_mbrEmail" size="20" value='<%=sql(12)%>' maxlength=100><font color=red>*</font></td>
</tr>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#D6D3CE">
<tr>
<td height="6"></td>
</tr>
<tr>
<td height="2" align="center">
<%if wxl="Modi" then%>
<input type="submit" value=" 修 改" name="B1" class="submit" style="width:60; height:25;">
<%else%>
<input type="submit" value=" 确 认" name="B1" class="submit" style="width:60; height:25;">
<%end if%>
<input type="reset" value=" 返 回" name="B2" class="submit" style="width:60; height:25;" onClick="history.back();"></td>
</tr>
<tr>
<td height="6"></td>
</tr>
</table>
<input type=hidden name="wxl" value="Add">
<input type=hidden name="int_mbrID" value="<%=int_mbrID%>">
</form>
<%
HtmlEnd
end sub
'显示会员列表
sub ShowLookHtml()
QueryType=request("QueryType")
QueryString=request("QueryString")
if QueryType="" then QueryType="str_mbrName"
set sql2=server.createobject("ADODB.recordset")
Query="select * from web_Member where "&QueryType&" like '%"&QueryString&"%' order by dtm_IssueTime"
sql2.open Query,conn,1,1
sql2.PageSize=CLng(PageSize)
if Page>sql2.PageCount then Page=sql2.PageCount
if not(sql2.eof) then
sql2.absolutepage=CLng(Page)
end if
PageNum=sql2.PageCount
Rows=sql2.RecordCount
call HtmlListHead("[会员列表]",sql2.RecordCount,sql2.PageCount,Page,"<a href='"&UrlName&"?wxl=ShowHtml'>新建会员</a>",UrlFile&"?QueryType="&QueryType&"&QueryString="&QueryString)
%>
<TABLE class=coolTable cellSpacing=0 cellPadding=2 altRowColor="oldlace" borderStyle="2" align="center">
<THEAD>
<TR align=middle>
<TD align="center">会员名称</TD>
<TD align="center">登录名</TD>
<TD align="center">联系电话</TD>
<TD align="center">QICQ</TD>
<TD align="center">通讯地址</TD>
<TD align="center">邮政编码</TD>
<TD align="center">电子邮件</TD>
<TD align="center">注册时间</TD>
<TD width=80 align="center">操 作</TD>
</TR>
</THEAD>
<TBODY>
<%for i=1 to Pagesize
if sql2.eof then exit for
%>
<TR>
<td ><%="<a href='"&UrlFile&"?wxl=Look&int_mbrID="&sql2("int_mbrID")&"' target=_blank>"&sql2("str_mbrName")%></a></td>
<td ><%=sql2("str_mbrLoginName")%></td>
<td ><%=sql2("str_mbrPhone")%></td>
<td ><%=sql2("str_mbrOICQ")%></td>
<td ><%=sql2("str_mbrAddress")%></td>
<td ><%=sql2("str_mbrZIP")%></td>
<td ><%=sql2("str_mbrEmail")%></td>
<td ><%=sql2("dtm_IssueTime")%></td>
<TD >
<a href=<%response.write(UrlFile&"?wxl=Modi&int_mbrID="&sql2("int_mbrID")&"&MenuId="&MenuId)%>>修改</a>
<a href=<%response.write("javascript:confirmDel('"&sql2("int_mbrID")&"')")%>>删除</a>
</TD>
</TR>
<%
sql2.movenext
next
if i<>18 then
for i=i to 18
%>
<TR>
<td> </td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<TD></TD>
<TD></TD>
<TD></TD>
</TR>
<%
next
end if
%>
</TBODY></TABLE>
<%
HtmlListEnd sql2.RecordCount,sql2.PageCount,Page,"<a href='"&UrlName&"?wxl=ShowHtml'>新建会员</a>",UrlFile&"?QueryType="&QueryType&"&QueryString="&QueryString
end sub
sub ShowContent()
Query="select * from web_Member where int_mbrID="&int_mbrID
set sql=conn.Execute(Query)
HtmlHead("查看会员资料")
%>
<table border="1" width="550" cellpadding="3" cellspacing="0" bgcolor="#D6D3CE" bordercolordark="#FFFFFF" bordercolorlight="#808080" align="center" >
<tr>
<td width="80" align="right">会员名称：</td>
<td align="left"><%=sql(1)%></td>
<td width="80" align="right">登 录 名：</td>
<td align="left"><%=sql(2)%></td>
</tr>
<tr>
<td width="80" align="right">密码提示：</td>
<td align="left"><%=sql(4)%></td>
<td width="80" align="right">密码回答：</td>
<td align="left"><%=sql(5)%></td>
</tr>
<tr>
<td width="80" align="right">性 别：</td>
<td align="left"><%=sql(6)%></td>
<td width="80" align="right">居住城市：</td>
<td align="left"><%=sql(7)%></td>
</tr>
<tr>
<td width="80" align="right">联系电话：</td>
<td align="left"><%=sql(8)%></td>
<td width="80" align="right">OICQ：</td>
<td align="left"><%=sql(9)%></td>
</tr>
<tr>
<td width="80" align="right">通讯地址：</td>
<td align="left" colspan=3><%=sql(10)%></td>
</tr>
<tr>
<td width="80" align="right">邮政编码：</td>
<td align="left"><%=sql(11)%></td>
<td width="80" align="right">电子邮件：</td>
<td align="left"><%=sql(12)%></td>
</tr>
</table>
<%
HtmlEnd
end sub
sub FindHtml()
%>
<table border="0" cellspacing="1" cellpadding="1" align="center">
<form name="form2" method="post" action=<%=request.servervariables("SCRIPT_NAME")%>>
<tr align="center">
<td class="pt1"> 姓名：</td>
<td >
<input type="text" name="QueryString" class="text2">
</td>
<td >
<input type="submit" name="Submit" value="查询" class=submit>
<input type="hidden" name="MenuId" value='<%=KindId%>'>
<input type="hidden" name="DeptID" value='<%=DeptId%>'>
</td>
</tr>
</table>
</form>
<%
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -