📄 member.asp
字号:
<%
Class Member
'用户基本信息列表
Public Sub MemberExplor()
Dim objDBMS
Set objDBMS = New LarrixDBMS
%><table width="580" cellpadding="0" cellspacing="0" border="0"><%
%><form name="member" action="MemberInsert.asp" method="post"><%
%><tr align="left" valign="middle"><%
%><td width="100%" class="ground">姓名 <input type="text" name="username" size="20" maxlength="50"> <input type="submit" value="新增会员" class="button" onclick="return (member.username.value!='');"></td><%
%></tr><%
%></form><%
%></table><%
%><br> <br><%
objDBMS.Open "SELECT * FROM [Members] ORDER BY [MemberUID]", 1
If Not (objDBMS.objRSET.BOF And objDBMS.objRSET.EOF) Then
While Not objDBMS.objRSET.EOF
%><table width="580" cellpadding="0" cellspacing="0" border="0"><%
%><tr align="left" valign="middle"><%
%><td width="100%" class="weblog"><% = objDBMS.objRSET("MemberDTM") %>：<% = objDBMS.objRSET("MemberUID") %></td><%
%></tr><%
%><tr align="left" valign="middle"><%
%><td width="100%" class="ground">分类：<% If objDBMS.objRSET("MemberPW") = True Then %>管理员<% Else %>会员<% End If %> | 电子邮件：<% = objDBMS.objRSET("MemberEML") %> | 登录：<% = objDBMS.objRSET("MemberNUM") %> | <a href="MemberModify.asp?id=<% = objDBMS.objRSET("MemberID") %>">编辑</a> | <a href="MemberDelete.asp?id=<% = objDBMS.objRSET("MemberID") %>">删除</a></td><%
%></tr><%
%><tr align="left" valign="middle"><%
%><td width="100%" class="ground">性别：<% = objDBMS.objRSET("MemberSEX") %> | 个人主页：<% = objDBMS.objRSET("MemberWEB") %> | OICQ号码：<% = objDBMS.objRSET("MemberICQ") %></td><%
%></tr><%
%></table><%
%><br> <br><%
objDBMS.objRSET.MoveNext
Wend
End If
objDBMS.Close
Set objDBMS = Nothing
End Sub
'新建会员界面
Public Sub MemberInsert(strUID)
Dim objDBMS
Set objDBMS = New LarrixDBMS
objDBMS.Open "SELECT * FROM [Members] WHERE [MemberUID]='" & strUID & "'", 1
If objDBMS.objRSET.BOF And objDBMS.objRSET.EOF Then
%><table width="580" cellpadding="0" cellspacing="0" border="0"><%
%><form name="member" action="MemberInsertUpdate.asp" method="post"><%
%><tr valign="middle"><%
%><td align="right" width="80" class="ground">会员帐号 </td><%
%><td align="left" class="ground"> <input type="text" name="username" size="40" maxlength="50" value="<% = strUID %>" readonly></td><%
%></tr><%
%><tr valign="middle"><%
%><td align="right" width="80" class="ground">登录密码 </td><%
%><td align="left" class="ground"> <input type="password" name="password" size="40" maxlength="50"></td><%
%></tr><%
%><tr valign="middle"><%
%><td align="right" width="80" class="ground">验证密码 </td><%
%><td align="left" class="ground"> <input type="password" name="confirm" size="40" maxlength="50"></td><%
%></tr><%
%><tr valign="middle"><%
%><td align="right" width="80" class="ground">电子邮件 </td><%
%><td align="left" class="ground"> <input type="text" name="email" size="40" maxlength="50" value="<% = strUID %>@larry.net.cn"></td><%
%></tr><%
%><tr valign="middle"><%
%><td align="right" width="80" class="ground">OICQ号码 </td><%
%><td align="left" class="ground"> <input type="text" name="oicq" size="20" maxlength="20"></td><%
%></tr><%
%><tr valign="middle"><%
%><td align="right" width="80" class="ground">会员性别 </td><%
%><td align="left" class="ground"> <input type="radio" name="sex" value="帅哥" class="radio">帅哥 <input type="radio" name="sex" value="美女" class="radio">美女</td><%
%></tr><%
%><tr valign="middle"><%
%><td align="right" width="80" class="ground">个人主页 </td><%
%><td align="left" class="ground"> http://<input type="text" name="homepage" size="40" maxlength="50"></td><%
%></tr><%
%><tr valign="middle"><%
%><td align="right" width="80" class="ground"> </td><%
%><td align="left" class="ground"> <input type="submit" value="新增会员" class="button" onclick="return (member.username.value!=''&&member.password.value!=''&&member.confirm.value!=''&&member.password.value==member.confirm.value&&member.email.value!='');"></td><%
%></tr><%
%></form><%
%></table><%
End If
objDBMS.Close
Set objDBMS = Nothing
End Sub
'编辑用户资料
Public Sub MemberModify(intMember)
Dim objDBMS
Set objDBMS = New LarrixDBMS
objDBMS.Open "SELECT * FROM [Members] WHERE [MemberID]=" & intMember, 1
If Not (objDBMS.objRSET.BOF And objDBMS.objRSET.EOF) Then
%><table width="580" cellpadding="0" cellspacing="0" border="0"><%
%><form name="member" action="MemberModifyUpdate.asp" method="post"><%
%><input type="hidden" name="id" value="<% = objDBMS.objRSET("MemberID") %>"><%
%><tr valign="middle"><%
%><td align="right" width="80" class="ground">会员帐号 </td><%
%><td align="left" class="ground"> <input type="text" name="username" size="40" maxlength="50" value="<% = objDBMS.objRSET("MemberUID") %>" readonly></td><%
%></tr><%
%><tr valign="middle"><%
%><td align="right" width="80" class="ground">登录密码 </td><%
%><td align="left" class="ground"> <input type="password" name="password" size="40" maxlength="50"></td><%
%></tr><%
%><tr valign="middle"><%
%><td align="right" width="80" class="ground">验证密码 </td><%
%><td align="left" class="ground"> <input type="password" name="confirm" size="40" maxlength="50"></td><%
%></tr><%
%><tr valign="middle"><%
%><td align="right" width="80" class="ground">电子邮件 </td><%
%><td align="left" class="ground"> <input type="text" name="email" size="40" maxlength="50" value="<% = objDBMS.objRSET("MemberEML") %>"></td><%
%></tr><%
%><tr valign="middle"><%
%><td align="right" width="80" class="ground">OICQ号码 </td><%
%><td align="left" class="ground"> <input type="text" name="oicq" size="20" maxlength="20" value="<% = objDBMS.objRSET("MemberICQ") %>"></td><%
%></tr><%
%><tr valign="middle"><%
%><td align="right" width="80" class="ground">会员性别 </td><%
%><td align="left" class="ground"> <input type="radio" name="sex" value="帅哥" class="radio"<% If objDBMS.objRSET("MemberSEX") = "帅哥" Then %> checked<% End If %>>帅哥 <input type="radio" name="sex" value="美女" class="radio"<% If objDBMS.objRSET("MemberSEX") = "美女" Then %> checked<% End If %>>美女</td><%
%></tr><%
%><tr valign="middle"><%
%><td align="right" width="80" class="ground">个人主页 </td><%
%><td align="left" class="ground"> http://<input type="text" name="homepage" size="40" maxlength="50" value="<% = objDBMS.objRSET("MemberWEB") %>"></td><%
%></tr><%
%><tr valign="middle"><%
%><td align="right" width="80" class="ground"> </td><%
%><td align="left" class="ground"> <input type="submit" value="更改资料" class="button" onclick="return (member.username.value!=''&&member.password.value!=''&&member.confirm.value!=''&&member.password.value==member.confirm.value&&member.email.value!='');"></td><%
%></tr><%
%></form><%
%></table><%
End If
objDBMS.Close
Set objDBMS = Nothing
End Sub
'用户管理面板
Public Sub MemberPanel()
%><table width="190" cellpadding="0" cellspacing="0" border="0"><%
%><caption class="guider"><li type="square">管理面板</li></caption><%
%><tr align="left" valign="middle"><%
%><td width="50%" class="guider"><a href="MemberExplor.asp">会员管理</a></td><%
%><td width="50%" class="guider"><a href="CategoryExplor.asp">分类管理</a></td><%
%></tr><%
%><tr align="left" valign="middle"><%
%><td width="50%" class="guider"><a href="LinkExplor.asp">链接管理</a></td><%
%><td width="50%" class="guider"><a href="MessageExplor.asp">留言管理</a></td><%
%></tr><%
%><tr align="left" valign="middle"><%
%><td width="50%" class="guider"><a href="LarrixBackup.asp">备份数据</a></td><%
%><td width="50%" class="guider"><a href="LarrixRestore.asp">恢复数据</a></td><%
%></tr><%
%><tr align="left" valign="middle"><%
%><td width="50%" class="guider"><a href="../editor/Admin_Login.asp">编辑管理</a></td><%
%><td width="50%" class="guider"><a href="LarrixRestore.asp"> </a></td><%
%></tr><%
%></table><%
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -