?? admin_userinfo.asp
字號:
<!--#include file="../conn.asp"-->
<!-- #include file="session.asp" -->
<!--#include file="../inc/config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body>
<%Select Case request.querystring("info")
Case "add_name"
Call add_name()
Case "modpassword"
Call modpassword()
Case "modmo"
Call modmo()
Case "vipUser_modmo"
Call vipUser_modmo()
Case "add_namepost"
Call add_namepost()
Case "modpasswordpost"
Call modpasswordpost()
Case "modmopost"
Call modmopost()
Case "vipUser_modmopost"
Call vipUser_modmopost()
end select
Sub add_name()
UserID=replace(trim(request("ID")),"'","")
set rs=server.createobject("adodb.recordset")
sql="select Name from userinfo where ID="&UserID&""
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write ("<script>alert('CnEndWeb（終點）提醒：\n\n 用戶不存在。');history.back();</script>")
Response.end
End If
%>
<script language="JavaScript" type="text/JavaScript">
<!--
function checkuser()
{
var user = document.userinfo.name;
if (user.value) {
window.open("admin_checkname.asp?info=user&name="+user.value,"_blank","top=100,left=100,height=185,width=320,status=no,toolbar=no,menubar=no,location=no")
}
else {
alert("請先填寫好昵稱！");
user.focus();
}
}
//-->
</script>
<table width="365" border="0" cellspacing="1" cellpadding="4" align="center">
<form action="admin_userinfo.asp?info=add_namepost&ID=<%=UserID%>" method="post" name="userinfo" onsubmit="return check(this);">
<tr>
<td height="30" bgcolor="#1C3566" colspan="3"><b>
<font color="#FFFFFF">用戶昵稱重設</font></b></td>
</tr>
<tr bgColor="#dfefff">
<td height="30"> 請填寫新昵稱</td>
<td height="30">
<input name="name" type="text" id="name" value="<%=rs("Name")%>" maxlength="18" size="30" class="form"></td>
</tr>
<tr bgColor="#dfefff">
<td height="30" colspan="2">*昵稱長度<font face="Times New Roman">8</font>字符以內，可使用英文字母、數字、漢字(1漢字=2字符)</td>
</tr>
<tr bgColor="#dfefff">
<td height="20" colspan="2"></td>
</tr>
<tr align="center" bgcolor="#1C3566">
<td height="35" colspan="3">
<input name="submit" type="submit" value="確認提交" class="button">
<input name="reset" type="reset" value="清除重寫" class="button">
<input name="checkacc" type="button" value="昵稱檢驗" onclick="checkuser();" class="button"></td>
</tr>
</form>
</table>
</body>
</html>
<%rs.close
set rs=nothing
end sub
Sub add_namepost()
'判斷名字是否超限
UserID=replace(trim(request("ID")),"'","")
Name=trim(request("Name"))
if Name="" or strLength(Name)>8 then
Response.Write ("<script>alert('CnEndWeb（終點）提醒：\n\n請輸入昵稱！(不能大于8) ');javascript:window.close();</script>")
Response.End
else
if Instr(Name,"=")>0 or Instr(Name,"%")>0 or Instr(Name,chr(32))>0 or Instr(Name,"?")>0 or Instr(Name,"&")>0 or Instr(Name,";")>0 or Instr(Name,",")>0 or Instr(Name,"'")>0 or Instr(Name,",")>0 or Instr(Name,chr(34))>0 or Instr(Name,chr(9))>0 or Instr(Name,"?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -