📄 usermodify.asp
字号:
<td bgcolor="#EAEAEA">
<div align="right">密码提示</div></td>
<td bgcolor="#FFFFFF">
<input name="PassQuestion" type="text" id="PassQuestion2" style="width:90%" value="<%=UserModifyObj("PassQuestion")%>"></td>
<td bgcolor="#EAEAEA">
<div align="right">问题答案</div></td>
<td bgcolor="#FFFFFF">
<input name="PassAnswer" type="text" id="PassAnswer2" style="width:90%" value="<%=UserModifyObj("PassAnswer")%>"></td>
</tr>
<tr>
<td bgcolor="#EAEAEA">
<div align="right">介 绍 人</div></td>
<td bgcolor="#FFFFFF">
<input name="AddUser" type="text" id="AddUser2" style="width:90%" value="<%=UserModifyObj("AddUser")%>"></td>
<td bgcolor="#EAEAEA">
<div align="right">头像图片</div></td>
<td bgcolor="#FFFFFF">
<input name="HeadPic" type="text" id="HeadPic2" style="width:90%" value="<%=UserModifyObj("HeadPic")%>"></td>
</tr>
<tr>
<td bgcolor="#EAEAEA">
<div align="right">签 名</div></td>
<td bgcolor="#FFFFFF">
<input name="UnderWrite" type="text" id="UnderWrite2" style="width:90%" value="<%=UserModifyObj("UnderWrite")%>"></td>
<td bgcolor="#EAEAEA">
<div align="right">生 日</div></td>
<td bgcolor="#FFFFFF">
<input name="Birthday" type="text" id="Birthday2" style="width:90%" value="<%=UserModifyObj("Birthday")%>"></td>
</tr>
<tr>
<td bgcolor="#EAEAEA">
<div align="right">最后登录</div></td>
<td bgcolor="#FFFFFF">
<input name="LastLoginIP" type="text" id="LastLoginIP2" style="width:90%" value="<%=UserModifyObj("LastLoginIP")%>" readonly></td>
<td bgcolor="#EAEAEA">
<div align="right">登录时间</div></td>
<td bgcolor="#FFFFFF">
<input name="LastLoginTime" type="text" id="LastLoginTime2" style="width:90%" value="<%=UserModifyObj("LastLoginTime")%>" readonly></td>
</tr>
<tr>
<td bgcolor="#EAEAEA">
<div align="right">锁 定</div></td>
<td bgcolor="#FFFFFF">
<input type="radio" name="Lock" value="1" <%If UserModifyObj("Lock") = "1" then Response.Write("checked") end if%>>
是
<input name="Lock" type="radio" value="0" <%If UserModifyObj("Lock") = "0" or UserModifyObj("Lock") = "" then Response.Write("checked") end if%>>
否</td>
<td bgcolor="#EAEAEA">
<div align="right">性 别</div></td>
<td bgcolor="#FFFFFF">
<input name="Sex" type="radio" value="0" <%If UserModifyObj("Sex") = "0" or UserModifyObj("Sex") = "" then Response.Write("checked") end if%>>
男
<input type="radio" name="Sex" value="1" <%If UserModifyObj("Sex") = "1" then Response.Write("checked") end if%>>
女</td>
</tr>
<tr>
<td bgcolor="#EAEAEA">
<div align="right">开放资料</div></td>
<td bgcolor="#FFFFFF">
<input name="OpenInfTF" type="radio" value="1" <% if UserModifyObj("OpenInfTF")="1" then Response.Write("checked") end if%>>
是
<input type="radio" name="OpenInfTF" value="0" <% if UserModifyObj("OpenInfTF")="0" then Response.Write("checked") end if%>>
否</td>
<td bgcolor="#EAEAEA">
<div align="right">订阅信息</div></td>
<td bgcolor="#FFFFFF">
<input name="SubInfTF" type="radio" value="1" <% if UserModifyObj("SubInfTF")="1" then Response.Write("checked") end if%>>
是
<input type="radio" name="SubInfTF" value="0" <% if UserModifyObj("SubInfTF")="0" then Response.Write("checked") end if%>>
否</td>
</tr>
<tr>
<td bgcolor="#EAEAEA">
<div align="right">个人介绍</div></td>
<td colspan="3" bgcolor="#FFFFFF">
<textarea name="SelfIntro" rows="6" id="SelfIntro" style="width:90%"><%=UserModifyObj("SelfIntro")%></textarea>
</td>
</tr>
</table>
</form>
</body>
</html>
<%
If Request.Form("action") = "mod" then
Dim UserAddObj,UserAddSql,ChooseMemNameObj,MemNameStr
If NoCSSHackAdmin(Request.Form("MemName"),"会员名")="" or isnull(Request.Form("MemName")) then
Response.Write("<script>alert(""请填写会员登录名"");</script>")
Response.End
Else
MemNameStr = Replace(Replace(Request.Form("MemName"),"""",""),"'","")
End If
Set ChooseMemNameObj = UserConn.Execute("Select count(ID) from FS_Members where MemName='"&MemNameStr&"'")
If Cstr(UserModifyObj("MemName"))=Cstr(MemNameStr) and ChooseMemNameObj(0)>1 then
Response.Write("<script>alert(""此会员登录名已经存在,请修改"");</script>")
Response.End
Elseif Cstr(UserModifyObj("MemName"))<>Cstr(MemNameStr) and ChooseMemNameObj(0)<>0 then
Response.Write("<script>alert(""此会员登录名已经存在,请修改"");</script>")
Response.End
End If
ChooseMemNameObj.Close
Set ChooseMemNameObj = Nothing
If Request.Form("Password")<>"" and Cstr(Request.Form("Password"))<>Cstr(Request.Form("PasswordTF")) then
Response.Write("<script>alert(""密码与确认密码不同"");</script>")
Response.End
End If
If Request.Form("Name")="" or isnull(Request.Form("Name")) then
Response.Write("<script>alert(""请填写会员真实姓名"");</script>")
Response.End
End If
'===========================================
'判断输入的生日格式，正确才保存
If Request.Form("Birthday")<>"" then
If Not Isdate(Request.Form("Birthday")) then
Response.Write("<script>alert(""请输入正确的生日格式,例：1976-1-1"");</script>")
Response.End
end if
End If
'==========================================
Set UserAddObj = Server.CreateObject(G_FS_RS)
UserAddSql = "Select * from FS_Members where ID="&UserIDP&""
UserAddObj.Open UserAddSql,UserConn,3,3
UserAddObj("MemName") = Replace(Replace(Request.Form("MemName"),"""",""),"'","")
If Request.Form("Password")<>"" then
UserAddObj("Password") = md5(Request.Form("Password"),16)
End If
UserAddObj("GroupID") = Request.Form("GroupID")
UserAddObj("Name") = Replace(Replace(Request.Form("Name"),"""",""),"'","")
UserAddObj("Email") = Request.Form("Email")
UserAddObj("Telephone") = Request.Form("Telephone")
UserAddObj("Oicq") = Request.Form("Oicq")
UserAddObj("HomePage") = Request.Form("HomePage")
UserAddObj("LoginNum") = Request.Form("LoginNum")
UserAddObj("Address") = Request.Form("Address")
UserAddObj("SelfIntro") = Request.Form("SelfIntro")
UserAddObj("AddUser") = Request.Form("AddUser")
if Request.Form("Point") <> "" then
UserAddObj("Point") = Request.Form("Point")
end if
UserAddObj("HeadPic") = Request.Form("HeadPic")
If Request.Form("Birthday")<>"" then
UserAddObj("Birthday") = Request.Form("Birthday")
End If
UserAddObj("MSN") = Request.Form("MSN")
UserAddObj("Corner") = Request.Form("Corner")
UserAddObj("Province") = Request.Form("Province")
UserAddObj("City") = Request.Form("City")
UserAddObj("Vocation") = Request.Form("Vocation")
UserAddObj("EduLevel") = Request.Form("EduLevel")
If Request.Form("OpenInfTF") = "0" then
UserAddObj("OpenInfTF") = "0"
Else
UserAddObj("OpenInfTF") = "1"
End If
If Request.Form("SubInfTF") = "0" then
UserAddObj("SubInfTF") = "0"
Else
UserAddObj("SubInfTF") = "1"
End If
UserAddObj("PassQuestion") = Request.Form("PassQuestion")
UserAddObj("PassAnswer") = Request.Form("PassAnswer")
UserAddObj("UnderWrite") = Request.Form("UnderWrite")
If Request.Form("Lock") = "0" then
UserAddObj("Lock") = "0"
Else
UserAddObj("Lock") = "1"
End If
If Request.Form("Sex") = "0" then
UserAddObj("Sex") = "0"
Else
UserAddObj("Sex") = "1"
End If
UserAddObj.Update
UserAddObj.Close
Set UserAddObj = Nothing
If Cstr(TempUserName) <> Cstr(Replace(Replace(Request.Form("MemName"),"""",""),"'","")) then
UserConn.Execute("Update FS_Message set MeRead='"&Replace(Replace(Request.Form("MemName"),"""",""),"'","")&"' where MeRead='"&TempUserName&"'")
End If
Response.Redirect("SysUserList.asp")
Response.End
End If
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -