开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
MyContact.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：11k
源码类别：

数据库编程

开发平台：

ASP/ASPX

MyContact.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../FS_Inc/Const.asp" -->
  3. <!--#include file="../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../FS_Inc/Function.asp" -->
  5. <!--#include file="lib/strlib.asp" -->
  6. <!--#include file="lib/UserCheck.asp" -->
  7. <%
  8. If Request.Form("Action") = "Save" then
  9. Dim RsSaveIObj
  10. Set RsSaveIObj = server.CreateObject(G_FS_RS)
  11. RsSaveIObj.open "select  UserID,isLock,UserName,RealName,GroupID,Integral,LoginNum,RegTime, LastLoginTime,LastLoginIP,UserNumber,FS_Money,ConNumber,UserID,HomePage,BothYear,Tel,MSN,QQ,Corner,Province,City,Address,PostCode,PassQuestion,SelfIntro,isOpen,Certificate,CertificateCode,Vocation,HeadPic,NickName,Mobile,CloseTime,IsCorporation,isMessage,Email,sex,safeCode,UserLoginCode,HeadPicsize,OnlyLogin,UserFavor,IsMarray From FS_ME_Users where UserNumber = '"& Fs_User.UserNumber &"'",User_Conn,1,3
  12. RsSaveIObj("tel") = NoSqlHack(Replace(Request.Form("tel"),"''",""))
  13. RsSaveIObj("mobile") = NoSqlHack(Replace(Request.Form("mobile"),"''",""))
  14. RsSaveIObj("homepage") = NoSqlHack(Replace(Request.Form("homepage"),"''",""))
  15. RsSaveIObj("Province")  = NoSqlHack(Replace(Request.Form("Province"),"''",""))
  16. RsSaveIObj("city")  = Replace(Request.Form("city"),"''","")
  17. RsSaveIObj("address")  =NoSqlHack(Replace(Request.Form("address"),"''",""))
  18. RsSaveIObj("postcode")  = Replace(Request.Form("postcode"),"''","")
  19. RsSaveIObj("qq")  = NoSqlHack(Request.Form("qq"))
  20. RsSaveIObj("msn")  = NoSqlHack(Request.Form("msn"))
  21. RsSaveIObj.update
  22. RsSaveIObj.close
  23. set RsSaveIObj = nothing
  24. strShowErr = "<li>联系资料资料修改成功!</li>"
  25. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../MyContact.asp")
  26. Response.end
  27. Else
  28. %>
  29. <html xmlns="http://www.w3.org/1999/xhtml">
  30. <title>我的联系资料-网站内容管理系统</title>
  31. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  32. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  33. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  34. <meta name="Keywords" content="Foosun,FoosunCMS,Foosun Inc.,风讯,风讯网站内容管理系统,风讯系统,风讯新闻系统,风讯商城,风讯b2c,新闻系统,CMS,域名空间,asp,jsp,asp.net,SQL,SQL SERVER" />
  35. <link href="images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  36. <head>
  37. <body>
  38. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  39.   <tr>
  40.     <td>
  41.       <!--#include file="top.asp" -->
  42.     </td>
  43.   </tr>
  44. </table>
  45. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  46.   
  47.     <tr class="back"> 
  48.       <td   colspan="2" class="xingmu" height="26"> <!--#include file="Top_navi.asp" --> </td>
  49.     </tr>
  50.     <tr class="back"> 
  51.       <td width="18%" valign="top" class="hback"> <div align="left"> 
  52.           <!--#include file="menu.asp" -->
  53.         </div></td>
  54.       <td width="82%" valign="top" class="hback"><table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  55.         <tr class="hback"> 
  56.           <td class="hback"><strong>位置：</strong><a href="../">网站首页</a> &gt;&gt; 
  57.             <a href="main.asp">会员首页</a> &gt;&gt; 联系资料</td>
  58.         </tr>
  59.       </table> 
  60.       <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  61.         <form name="form1" method="post" action="">
  62.           <tr class="hback"> 
  63.             <td width="16%" class="hback_1"><div align="center"><strong>电话</strong></div></td>
  64.             <td width="35%" class="hback"><input name="Tel" type="text" id="Tel" value="<% = Fs_User.Tel%>" size="26" maxlength="20"></td>
  65.             <td width="9%" class="hback_1"><div align="center"><strong>移动电话</strong></div></td>
  66.             <td width="40%" class="hback"><input name="Mobile" type="text" id="Mobile" value="<% = Fs_User.Mobile%>" size="26" maxlength="50"></td>
  67.           </tr>
  68.           <tr class="hback"> 
  69.             <td class="hback_1"><div align="center"><strong>电子邮件</strong></div></td>
  70.             <td class="hback"><input name="Email" type="text" id="Email" value="<% = Fs_User.Email%>" size="26" maxlength="100" readonly></td>
  71.             <td class="hback_1"><div align="center"><strong>个人主页</strong></div></td>
  72.             <td class="hback"><input name="homepage" type="text" id="homepage" value="<% = Fs_User.homepage%>" size="26" maxlength="200"></td>
  73.           </tr>
  74.           <tr class="hback"> 
  75.             <td class="hback_1"><div align="center"><strong>省份</strong></div></td>
  76.             <td class="hback"><select name="Province" size=1 id="Province">
  77.                 <option value="">请选择　　</option>
  78.                 <option value="北京" <% If Fs_User.Province ="北京" then response.Write("selected")%>>北京</option>
  79.                 <option value="上海" <% If Fs_User.Province ="上海" then response.Write("selected")%>>上海</option>
  80.                 <option value="四川" <% If Fs_User.Province ="四川" then response.Write("selected")%>>四川</option>
  81.                 <option value="天津" <% If Fs_User.Province ="天津" then response.Write("selected")%>>天津</option>
  82.                 <option value="重庆" <% If Fs_User.Province ="重庆" then response.Write("selected")%>>重庆</option>
  83.                 <option value="安徽" <% If Fs_User.Province ="安徽" then response.Write("selected")%>>安徽</option>
  84.                 <option value="甘肃" <% If Fs_User.Province ="甘肃" then response.Write("selected")%>>甘肃</option>
  85.                 <option value="广东" <% If Fs_User.Province ="广东" then response.Write("selected")%>>广东</option>
  86.                 <option value="广西" <% If Fs_User.Province ="广西" then response.Write("selected")%>>广西</option>
  87.                 <option value="贵州" <% If Fs_User.Province ="贵州" then response.Write("selected")%>>贵州</option>
  88.                 <option value="福建" <% If Fs_User.Province ="福建" then response.Write("selected")%>>福建</option>
  89.                 <option value="海南" <% If Fs_User.Province ="海南" then response.Write("selected")%>>海南</option>
  90.                 <option value="河北" <% If Fs_User.Province ="河北" then response.Write("selected")%>>河北</option>
  91.                 <option value="河南" <% If Fs_User.Province ="河南" then response.Write("selected")%>>河南</option>
  92.                 <option value="黑龙江" <% If Fs_User.Province ="黑龙江" then response.Write("selected")%>>黑龙江</option>
  93.                 <option value="湖北" <% If Fs_User.Province ="湖北" then response.Write("selected")%>>湖北</option>
  94.                 <option value="湖南" <% If Fs_User.Province ="湖南" then response.Write("selected")%>>湖南</option>
  95.                 <option value="吉林" <% If Fs_User.Province ="吉林" then response.Write("selected")%>>吉林</option>
  96.                 <option value="江苏" <% If Fs_User.Province ="江苏" then response.Write("selected")%>>江苏</option>
  97.                 <option value="江西" <% If Fs_User.Province ="江西" then response.Write("selected")%>>江西</option>
  98.                 <option value="辽宁" <% If Fs_User.Province ="辽宁" then response.Write("selected")%>>辽宁</option>
  99.                 <option value="内蒙古" <% If Fs_User.Province ="内蒙古" then response.Write("selected")%>>内蒙古</option>
  100.                 <option value="宁夏" <% If Fs_User.Province ="宁夏" then response.Write("selected")%>>宁夏</option>
  101.                 <option value="青海" <% If Fs_User.Province ="青海" then response.Write("selected")%>>青海</option>
  102.                 <option value="山东" <% If Fs_User.Province ="山东" then response.Write("selected")%>>山东</option>
  103.                 <option value="山西" <% If Fs_User.Province ="山西" then response.Write("selected")%>>山西</option>
  104.                 <option value="陕西" <% If Fs_User.Province ="陕西" then response.Write("selected")%>>陕西</option>
  105.                 <option value="西藏" <% If Fs_User.Province ="西藏" then response.Write("selected")%>>西藏</option>
  106.                 <option value="新疆" <% If Fs_User.Province ="新疆" then response.Write("selected")%>>新疆</option>
  107.                 <option value="云南" <% If Fs_User.Province ="云南" then response.Write("selected")%>>云南</option>
  108.                 <option value="浙江" <% If Fs_User.Province ="浙江" then response.Write("selected")%>>浙江</option>
  109.                 <option value="港澳台" <% If Fs_User.Province ="港澳台" then response.Write("selected")%>>港澳台</option>
  110.                 <option value="海外" <% If Fs_User.Province ="海外" then response.Write("selected")%>>海外</option>
  111.                 <option value="其它" <% If Fs_User.Province ="其它" then response.Write("selected")%>>其它</option>
  112.               </select></td>
  113.             <td class="hback_1"><div align="center"><strong>城市</strong></div></td>
  114.             <td class="hback"><input name="City" type="text" id="City" value="<% = Fs_User.City%>" size="26" maxlength="20"> 
  115.             </td>
  116.           </tr>
  117.           <tr class="hback"> 
  118.             <td class="hback_1"><div align="center"><strong>地址</strong></div></td>
  119.             <td class="hback"><input name="address" type="text" id="address" value="<% = Fs_User.address%>" size="26" maxlength="100"> 
  120.             </td>
  121.             <td class="hback_1"><div align="center"><strong>邮政编码</strong></div></td>
  122.             <td class="hback"><input name="postcode" type="text" id="postcode" value="<% = Fs_User.postcode%>" size="26" maxlength="20"></td>
  123.           </tr>
  124.           <tr class="hback"> 
  125.             <td class="hback_1"><div align="center"><strong>QQ</strong></div></td>
  126.             <td class="hback"><input name="QQ" type="text" id="QQ" value="<% = Fs_User.QQ%>" size="26" maxlength="20"> 
  127.             </td>
  128.             <td class="hback_1"><div align="center"><strong>MSN</strong></div></td>
  129.             <td class="hback"><input name="MSN" type="text" id="MSN" value="<% = Fs_User.MSN%>" size="26" maxlength="100"> 
  130.             </td>
  131.           </tr>
  132.           <tr class="hback"> 
  133.             <td colspan="4" class="hback"><div align="center"> 
  134.                 <input name="Action" type="hidden" id="Action" value="Save">
  135.                 <input type="submit" name="Submit" value="保存资料"   onClick="{if(confirm('确认保存您所修改的参数吗?')){this.document.form1.submit();return true;}return false;}">
  136.                 　 
  137.                 <input type="reset" name="Submit3" value="重新填写">
  138.               </div></td>
  139.           </tr>
  140.           <tr class="hback">
  141.             <td colspan="4" class="hback"><div align="center"></div></td>
  142.           </tr>
  143.         </form>
  144.       </table>
  145.        </td>
  146.     </tr>
  147.     <tr class="back"> 
  148.       <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  149.           <!--#include file="Copyright.asp" -->
  150.         </div></td>
  151.     </tr>
  152.  
  153. </table>
  154. </body>
  155. </html>
  156. <%
  157. End if
  158. Set Fs_User = Nothing
  159. %>
  160. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->