📄 profile.asp
字号:
<tr>
<td height="20" width="45%">
<div align="right">
<table border="1" cellspacing="0" cellpadding="2" bgcolor="<% =ButtonBgColor %>" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80" align="right">
<tr>
<td>
<div align="center" class="p9"><A href="javascript:document.forms[0].submit()"><font size=2>确 认</font></a></div>
</td>
</tr>
</table>
</div>
</td>
<td height="20" width="7%"> </td>
<td height="20" width="48%">
<table border="1" cellspacing="0" cellpadding="2" bgcolor="<% =ButtonBgColor %>" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80" align="left">
<tr>
<td>
<div align="center" class="p9"><A href="javascript:history.back()"><font size=2>取 消</font></a></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<% case 2 %>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td height="18" width="5%"> </td>
<td height="18" width="95%">个人简介：*<a tabindex="-1" href="javascript:alert(' 小技巧！！！\r\r你可以在输入框中加上以下符号以增强感情效果，不信你试 \r试。^_^\r\r [:)]、[:P]、[:(]、[;)]\r\r如果你熟悉HTML，你也可以用以下符号来表示特殊用途。符\r号对应关系如下：\r -------------------------------------------------------------------------\r 本网站 HTML\r -------------------------------------------------------------------------\r [b]，[/b] <b>，</b>\r [i]，[/i] <i>，</i>\r [a]，[/a] <a>，</a>\r [quote]，[/quote] <BLOCKQUOTE>，</BLOCKQUOTE>\r [code]，[/code] <pre>，</pre>\r\r')"><font color='red' size="1">小技巧</font></a>*</td>
</tr>
<tr>
<td height="254" width="5%">
<div align="center"> </div>
</td>
<td height="254" width="95%">
<textarea name="comment" cols="76" rows="17" wrap="VIRTUAL"><%if txtcomment<>"" then response.write cleancode(txtcomment) %></textarea>
</td>
</tr>
<tr>
<td height="43" colspan="2">
<table width="100%" border="0">
<tr>
<td height="28" width="45%">
<div align="right">
<table border="1" cellspacing="0" cellpadding="2" bgcolor="<% =ButtonBgColor %>" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80" align="right">
<tr>
<td>
<div align="center" class="p9"><A href="javascript:document.forms[0].submit()"><font size=2>确 认</font></a></div>
</td>
</tr>
</table>
</div>
</td>
<td height="28" width="8%"> </td>
<td height="28" width="47%">
<table border="1" cellspacing="0" cellpadding="2" bgcolor="<% =ButtonBgColor %>" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80" align="left">
<tr>
<td>
<div align="center" class="p9"><A href="javascript:history.back()"><font size=2>取 消</font></a></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<% case 3 %>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td height="33" width="4%"> </td>
<td height="33" width="96%">用户签名：*<a tabindex="-1" href="javascript:alert(' 小技巧！！！\r\r你可以在输入框中加上以下符号以增强感情效果，不信你试 \r试。^_^\r\r [:)]、[:P]、[:(]、[;)]\r\r如果你熟悉HTML，你也可以用以下符号来表示特殊用途。符\r号对应关系如下：\r -------------------------------------------------------------------------\r 本网站 HTML\r -------------------------------------------------------------------------\r [b]，[/b] <b>，</b>\r [i]，[/i] <i>，</i>\r [a]，[/a] <a>，</a>\r [quote]，[/quote] <BLOCKQUOTE>，</BLOCKQUOTE>\r [code]，[/code] <pre>，</pre>\r\r')"><font color='red' size="1">小技巧</font></a>*</td>
</tr>
<tr>
<td height="173" width="4%">
<div align="center"></div>
</td>
<td height="173" width="96%">
<textarea name="sig" cols="76" rows="15" wrap="VIRTUAL"><%if txtsig<>"" then response.write cleancode(txtsig) %></textarea>
</td>
</tr>
<tr>
<td height="64" colspan="2">
<table width="100%" border="0">
<tr>
<td height="2" width="45%">
<div align="right">
<table border="1" cellspacing="0" cellpadding="2" bgcolor="<% =ButtonBgColor %>" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80" align="right">
<tr>
<td>
<div align="center" class="p9"><A href="javascript:document.forms[0].submit()"><font size=2>确 认</font></a></div>
</td>
</tr>
</table>
</div>
</td>
<td height="2" width="8%"> </td>
<td height="2" width="47%">
<table border="1" cellspacing="0" cellpadding="2" bgcolor="<% =ButtonBgColor %>" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80" align="left">
<tr>
<td>
<div align="center" class="p9"><A href="javascript:history.back()"><font size=2>取 消</font></a></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<% case 4 %>
<table width="54%" border="0" height="180">
<tr>
<td width="31%" height="20"> </td>
<td width="69%"> </td>
</tr>
<tr>
<td width="31%">新密码：</td>
<td width="69%">
<input type="password" name="passwd1" size="20" maxLength="20" value='<% =rs("M_Password") %>'>
</td>
</tr>
<tr>
<td width="31%">确认密码：</td>
<td width="69%">
<input type="password" name="passwd2" size="20" maxLength="20" value='<% =rs("M_Password") %>'>
</td>
</tr>
<tr>
<td colspan="2">
<table width="100%" border="0">
<tr>
<td height="34" width="45%">
<div align="right">
<table border="1" cellspacing="0" cellpadding="2" bgcolor="<% =ButtonBgColor %>" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80" align="right">
<tr>
<td>
<div align="center" class="p9"><A href="javascript:chkpwd()"><font size=2>确 认</font></a></div>
</td>
</tr>
</table>
</div>
</td>
<td height="34" width="7%"> </td>
<td height="34" width="48%">
<table border="1" cellspacing="0" cellpadding="2" bgcolor="<% =ButtonBgColor %>" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80" align="left">
<tr>
<td>
<div align="center" class="p9"><A href="javascript:history.back()"><font size=2>取 消</font></a></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<% End Select %>
<input name="m" type="hidden" value="<% =mode %>">
</form>
<%
End if
rs.close
set rs=nothing
Else
If request.Form("m")=4 then
strSql = "update Members set M_Password = '" & request.Form("passwd1")
strSql = StrSql & "' where Member_id=" & profileid
conn.Execute strSql
if Err.description <> "" then
GO_Result "修改错误： " & Err.description, false, "javascript:history.back()"
Else
Go_Result "密码修改成功！", true, "address.asp"
End If
Else
strSql= "U_Updated_By=" & session("user_id")
strSql = strSql & ", U_Updated_Date=#" & now() & "#"
Select Case request.Form("m")
case 1
if getUserLevel(session("user_id"))=3 then
str = "update Members set M_Level = '" & request.Form("level")
str = Str & "' where Member_id=" & profileid
conn.Execute(str)
end if
strSql = strSql & ", U_Phone='" & trim(request.Form("phone"))
strSql = strSql & "', U_Email='" & trim(request.Form("email"))
strSql = strSql & "', U_Oicq='" & trim(request.Form("oicq"))
strSql = strSql & "', U_Homepage='" & trim(request.Form("homepage"))
strSql = strSql & "', U_Address='" & trim(request.Form("address"))
strSql = strSql & "', U_Zipcode='" & trim(request.Form("zipcode"))
strSql = strSql & "', U_City=" & request.Form("city")
strSql = strSql & ", U_City2='" & trim(request.Form("city2")) & "'"
'strSql = strSql & ", U_Icon=" & request.Form("icon")
case 2
strSql = strSql & ", U_Comment='" & trim(chkString(request.Form("comment"))) & "'"
case 3
strSql = strSql & ", U_sig='" & trim(chkString(request.Form("sig"))) & "'"
End Select
strSql = "update UserInfo set " & StrSql & " where User_ID=" & profileid
'Response.write strsql
conn.Execute strSql
if Err.description <> "" then
GO_Result "修改错误： " & Err.description, false, "javascript:history.back()"
Else
Go_Result "资料修改成功！", true, "address.asp"
End If
End if
End if
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
'## 关闭数据库连接
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -