📄 pop_profile.asp
字号:
<input type=hidden name="MEMBER_ID" value="<% =Request.QueryString("ID") %>">
<input type=hidden name="Name" value="<% =Request.QueryString("name") %>">
<input name="Refer" type="hidden" value="<% =Request.ServerVariables("HTTP_REFERER") %>">
<table border="0" width="30%" cellspacing="0" cellpadding="0" align=center>
<tr>
<td bgcolor="<% =strPopUpBorderColor %>">
<table border="0" width="100%" cellspacing="1" cellpadding="4">
<% if strAuthType="db" then %>
<tr>
<TD bgColor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">用户名称：</font></b></td>
<TD bgColor=<% =strPopUpTableColor %>><input type=text name="User" value="<% =Request.Cookies(strUniqueID & "User")("Name") %>" size=20></td>
</tr>
<tr>
<TD bgColor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">你的密码：</FONT></b></td>
<TD bgColor=<% =strPopUpTableColor %>><input type=Password name="Pass" value="<% =Request.Cookies(strUniqueID & "User")("Pword") %>" size=20></td>
</tr>
<% elseif strAuthType="nt" then %>
<tr>
<td bgcolor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">NT 帐号：</font></b></td>
<td bgcolor=<% =strPopUpTableColor %>><font face="<%=strDefaultFontFace %>" size="<% =strDefaultFontSize%>"><%=Session(strCookieURL & "userid")%></FONT></td>
</tr>
<% end if %>
<tr>
<TD bgColor=<% =strPopUpTableColor %> colspan=2 align=center><Input type=Submit value="提交" id=Submit1 name=Submit1></td>
</TR>
</TABLE>
</td>
</tr>
</table>
</form>
<%
case "goModify"
mLev = cint(ChkUser2(STRdbntUserName, Request.Form("Pass")))
if mLev > 0 then '## is Member
if mLev = 4 then
'## Forum_SQL
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME "
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_USERNAME, " & strMemberTablePrefix & "MEMBERS.M_EMAIL "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_FIRSTNAME, " & strMemberTablePrefix & "MEMBERS.M_LASTNAME "
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_LEVEL"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_TITLE"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_PASSWORD"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_ICQ"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_YAHOO"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_AIM"
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_COUNTRY "
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_POSTS"
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_CITY "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_STATE "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_COUNTRY "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_POSTS "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HIDE_EMAIL "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_DATE "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_URL "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_FACE_WIDTH "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_FACE_HEIGHT "
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE"
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LINK1, " & strMemberTablePrefix & "MEMBERS.M_LINK2 "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AGE, " & strMemberTablePrefix & "MEMBERS.M_MARSTATUS "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_SEX, " & strMemberTablePrefix & "MEMBERS.M_OCCUPATION "
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_SIG"
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HOBBIES, " & strMemberTablePrefix & "MEMBERS.M_LNEWS "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_QUOTE, " & strMemberTablePrefix & "MEMBERS.M_BIO "
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_ALLOWDOWNLOADS, " & strMemberTablePrefix & "MEMBERS.M_ALLOWUPLOADS "
'######################################## kerrycode for Mail List # Display in goModify mode
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_RECMAIL"
'-------/kerrycode
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE MEMBER_ID = " & Request.Form("MEMBER_ID")
set rs = my_Conn.Execute(strSql)
'## Display Edit Profile Page
%>
<center>
<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">编辑会员资料</font></p>
<p align=center><form action="pop_profile.asp?mode=ModifyIt&id=<% =Request.Form("MEMBER_ID")%>" method="Post" id=Form1 name=Form1>
</center>
<input type=hidden name="User" value="<% =Request.Form("User") %>">
<input type=hidden name="Pass" value="<% =Request.Form("Pass") %>">
<input name="Refer" type="hidden" value="<% =Request.Form("Refer") %>">
<!-- #include file="inc_profile.asp" -->
</form></p>
<% else %>
<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>"><b>你不是管理员不能编辑会员资料</b></font><br>
<br>
<a href="JavaScript: onClick= history.go(-1) ">返回重新认证</a></p>
<% if strUseExtendedProfile then %>
<p align="center"><a href="<% if InStr(1,Request.Form("refer"),"register.asp",1) > 0 then Response.Write("default.asp") else Response.Write(Request.Form("refer")) end if %>">返回论坛</a></p>
<% end if
end if
else %>
<P align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>"><b>你不是管理员不能编辑会员资料</b></font><br>
<br>
<a href="JavaScript: onClick= history.go(-1) ">返回重新认证</a></p>
<% if strUseExtendedProfile then %>
<p align="center"><a href="<% if InStr(1,Request.Form("refer"),"register.asp",1) > 0 then Response.Write("default.asp") else Response.Write(Request.Form("refer")) end if %>">返回论坛</a></p>
<% end if
end if
case "EditIt"
Err_Msg = ""
if Request.Form("Name") = "" then
Err_Msg = Err_Msg & "<li>你必须输入姓名</li>"
end if
if (Instr(Request.Form("Name"), ">") > 0 ) or (Instr(Request.Form("Name"), "<") > 0) then
Err_Msg = Err_Msg & "<li> > 和 < 不能出现在用户名里，请重新输入</li>"
end if
if strAuthType = "db" then
if Request.Form("Password") = "" then
Err_Msg = Err_Msg & "<li>你必须输入密码</li>"
end if
if Len(Request.Form("Password")) > 25 then
Err_Msg = Err_Msg & "<li>密码不能超过25个字元</li>"
end if
if Request.Form("Password") <> Request.Form("Password2") then
Err_Msg = Err_Msg & "<li>两次输入的密码不同</li>"
end if
end if
if Request.Form("Email") = "" then
Err_Msg = Err_Msg & "<li>必须填写电子邮件</li>"
end if
if EmailField(Request.Form("Email")) = 0 then
Err_Msg = Err_Msg & "<li>必须填写正确的电子邮件</li>"
end if
if (lcase(left(Request.Form("Homepage"), 7)) <> "http://") and (lcase(left(Request.Form("Homepage"), 8)) <> "https://") and (Request.Form("Homepage") <> "") then
Err_Msg = Err_Msg & "<li>你必须在网址前加上 <b>http://</b> or <b>https://</b></li>"
end if
if strUniqueEmail = "1" then
if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) then
'## Forum_SQL
strSql = "SELECT M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_EMAIL = '" & Trim(Request.Form("Email")) &"'"
set rs = my_Conn.Execute (strSql)
if rs.BOF and rs.EOF then
'## Do Nothing - proceed
Else
Err_Msg = Err_Msg & "<li>此电子邮件已经有人使用，请重新输入</li>"
end if
rs.close
set rs = nothing
end if
end if
if Len(ChkString(Request.Form("Sig"),"message")) > 255 then
Err_Msg = Err_Msg & "<li>个人签名不能超过255个字符。"
Err_Msg = Err_Msg & "现在共有 <b>" & Len(ChkString(Request.Form("Sig"),"message")) & "</b> 个字符</li>"
end if
if Err_Msg = "" then
if Trim(Request.Form("Homepage")) <> "" and lcase(trim(Request.Form("Homepage"))) <> "http://" and Trim(lcase(Request.Form("Homepage"))) <> "https://" then
regHomepage = ChkString(Request.Form("Homepage"),"url")
else
regHomepage = " "
end if
if Trim(Request.Form("LINK1")) <> "" and lcase(trim(Request.Form("LINK1"))) <> "http://" and Trim(lcase(Request.Form("LINK1"))) <> "https://" then
regLink1 = ChkString(Request.Form("LINK1"),"url")
else
regLink1 = " "
end if
if Trim(Request.Form("LINK2")) <> "" and lcase(trim(Request.Form("LINK2"))) <> "http://" and Trim(lcase(Request.Form("LINK2"))) <> "https://" then
regLink2 = ChkString(Request.Form("LINK2"),"url")
else
regLink2 = " "
end if
' ########## www.wormcn.net 自定义表情图片 ##########
if Trim(Request("MyFace"))<>"" then
if (lcase(left(Request("MyFace"), 7)) <> "http://") and (lcase(left(Request("MyFace"), 8)) <> "https://") and (Request("MyFace") <> "") then
Err_Msg = Err_Msg & "<li>你必须在表情图片的网址前加上 <b>http://</b> 或者 <b>https://</b></li>"
else
regPhoto_URL = Trim(Request("MyFace"))
end if
if Request("width")="" or Request("height")="" then
Err_Msg = Err_Msg & "<li>请输入图片的宽度和高度。</li>"
elseif not isInteger(Request("width")) or not isInteger(Request("height")) then
Err_Msg = Err_Msg & "<li>你输入的表情图片高度不合法，<b>必须是数字</b></li>"
elseif Request("width")<20 or Request("width")>120 then
Err_Msg = Err_Msg & "<li>你输入的表情图片宽度不能小于 <b>20</b> 或者大于 <b>120</b></li>"
elseif Request("height")<20 or Request("height")>120 then
Err_Msg = Err_Msg & "<li>你输入的表情图片高度不能小于 <b>20</b> 或者大于 <b>120</b></li>"
else
regPhoto_Width = Trim(Request("width"))
regPhoto_Height = Trim(Request("height"))
end if
else
if Trim(Request("PHOTO_URL")) <> "" and lcase(trim(Request("PHOTO_URL"))) <> "http://" and Trim(lcase(Request("PHOTO_URL"))) <> "https://" then
regPhoto_URL = ChkString(Request("Photo_URL"),"url")
else
regPhoto_URL = " "
end if
end if
' ########## www.wormcn.net 自定义表情图片 ##########
'## Forum_SQL
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_PASSWORD = '" & ChkString(Request.Form("Password"),"") & "', "
strSql = strSql & " M_COUNTRY = '" & ChkString(Request.Form("Country"),"") & "', "
'#########################kerrycode for Email List # UPDATE in Edit
strSql = strSql & " M_RECMAIL = '" & ChkString(Request.Form("RECMAIL"),"") & "', "
'----------------------/kerrycode
if strICQ = "1" then
strSql = strSql & " M_ICQ = '" & ChkString(Request.Form("ICQ"),"") & "', "
end if
if strYAHOO = "1" then
strSql = strSql & " M_YAHOO = '" & ChkString(Request.Form("YAHOO"),"") & "', "
end if
if strAIM = "1" then
strSql = strSql & " M_AIM = '" & ChkString(Request.Form("AIM"),"") & "', "
end if
if strHOMEPAGE = "1" then
strSql = strSql & " M_Homepage = '" & ChkString(Trim(regHomepage),"") & "', "
end if
strSql = strSql & " M_SIG = '" & ChkString(Request.Form("Sig"),"message") & "', "
strSql = strSql & " M_EMAIL = '" & ChkString(Request.Form("Email"),"") & "' "
if strfullName = "1" then
strSql = strSql & ", M_FIRSTNAME = '" & ChkString(Request.Form("FirstName"),"") & "'"
strSql = strSql & ", M_LASTNAME = '" & ChkString(Request.Form("LastName"),"") & "'"
end if
if strCity = "1" then
strsql = strsql & ", M_CITY = '" & ChkString(Request.Form("City"),"") & "'"
end if
if strState = "1" then
strsql = strsql & ", M_STATE = '" & ChkString(Request.Form("State"),"") & "'"
end if
strsql = strsql & ", M_HIDE_EMAIL = '" & ChkString(Request.Form("HideMail"),"") & "'"
' ########## www.wormcn.net 自定义表情图片 ##########
if strPicture = "1" then
strsql = strsql & ", M_PHOTO_URL = '" & ChkString(regPhoto_URL,"") & "'"
if regPhoto_Width <> "" then
strsql = strsql & ", M_FACE_WIDTH = '" & ChkString(regPhoto_Width,"") & "'"
end if
if regPhoto_Height <> "" then
strsql = strsql & ", M_FACE_HEIGHT = '" & ChkString(regPhoto_Height,"") & "'"
end if
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -