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

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

数据库编程

开发平台：

ASP/ASPX

Corp_Card_add_1.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. Dim p_id
  9. p_id = NoSqlHack(Trim(Request.QueryString("CorpCardid")))
  10. if Request.Form("Action") = "Save" then
  11. Dim str_f_UserNumber,str_Content,str_CorpCardid
  12. str_f_UserNumber = NoSqlHack(Trim(Request.Form("UserNumber")))
  13. str_Content = NoHtmlHackInput(Request.Form("Content"))
  14. str_CorpCardid = NoHtmlHackInput(Request.Form("CorpCardid"))
  15. if str_f_UserNumber ="" then
  16. strShowErr = "<li>错误的会员编号</li>"
  17. Call ReturnError(strShowErr,"")
  18. End if
  19. if len(str_Content) >200 then
  20. strShowErr = "<li>备注不能大于200个字符</li>"
  21. Call ReturnError(strShowErr,"")
  22. End if
  23. dim RsaddObj
  24. Set RsaddObj = server.CreateObject(G_FS_RS)
  25. RsaddObj.open "select * From FS_ME_CorpCard where CorpCardid="&str_CorpCardid,User_Conn,1,3
  26. RsaddObj("Content") = str_Content
  27. RsaddObj.update
  28. RsaddObj.close
  29. set RsaddObj = nothing
  30. strShowErr = "<li>修改成功</li>"
  31. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../Corp_card.asp")
  32. Response.end
  33. Else
  34. Dim RsCorpCardObj
  35. Set RsCorpCardObj = server.CreateObject(G_FS_RS)
  36. RsCorpCardObj.open "select  CorpCardid,F_UserNumber,Content From FS_ME_CorpCard where CorpCardid="& p_id,User_Conn,1,1
  37. iF RsCorpCardObj.eof then
  38. strShowErr = "<li>错误的参数</li>"
  39. Call ReturnError(strShowErr,"")
  40. End if
  41. dim strTmp
  42. strTmp = Fs_User.GetFriendName(RsCorpCardObj("F_UserNumber"))
  43. %>
  44. <html xmlns="http://www.w3.org/1999/xhtml">
  45. <title>修改名片-网站内容管理系统</title>
  46. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  47. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  48. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  49. <meta name="Keywords" content="Foosun,FoosunCMS,Foosun Inc.,风讯,风讯网站内容管理系统,风讯系统,风讯新闻系统,风讯商城,风讯b2c,新闻系统,CMS,域名空间,asp,jsp,asp.net,SQL,SQL SERVER" />
  50. <link href="images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  51. <head>
  52. <body>
  53. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  54.   <tr>
  55.     <td>
  56.       <!--#include file="top.asp" -->
  57.     </td>
  58.   </tr>
  59. </table>
  60. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  61.   
  62.     <tr class="back"> 
  63.       <td   colspan="2" class="xingmu" height="26"> <!--#include file="Top_navi.asp" --> </td>
  64.     </tr>
  65.     <tr class="back"> 
  66.       <td width="18%" valign="top" class="hback"> <div align="left"> 
  67.           <!--#include file="menu.asp" -->
  68.         </div></td>
  69.       <td width="82%" valign="top" class="hback"><table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  70.           <tr class="hback"> 
  71.           <td class="hback"><strong>位置：</strong><a href="../">网站首页</a> &gt;&gt; 
  72.             <a href="main.asp">会员首页</a> &gt;&gt; 添加名片</td>
  73.           </tr>
  74.         </table>
  75.       <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  76.         <form name="UserForm" method="post" action="">
  77.           <tr class="hback"> 
  78.             <td width="12%" class="hback_1"><div align="center" class="tx">用户名</div></td>
  79.             <td width="40%" class="hback"><div align="left"> 
  80.                 <input name="UserNumber" type="text" id="UserNumber" value="<% = strTmp%>" size="30" ReadOnly>
  81.               </div></td>
  82.             <td width="48%" class="hback"><div align="left"> </div></td>
  83.           </tr>
  84.           <tr class="hback"> 
  85.             <td colspan="3" class="xingmu"><div align="left">备注部分</div></td>
  86.           </tr>
  87.           <tr class="hback"> 
  88.             <td class="hback_1"><div align="center">备注</div></td>
  89.             <td class="hback"> <textarea name="Content" cols="40" rows="5" id="Content"><% = RsCorpCardObj("Content")%></textarea></td>
  90.             <td class="hback">名片的备注，最大200字符</td>
  91.           </tr>
  92.           <tr class="hback"> 
  93.             <td class="hback_1">&nbsp;</td>
  94.             <td colspan="2" class="hback"> <input type="submit" name="Submit" value="确定收藏名片"  onClick="{if(confirm('确认修改此名片吗?')){this.document.UserForm.submit();return true;}return false;}"> 
  95.               <input name="Action" type="hidden" id="Action" value="Save"> <input name="CorpCardid" type="hidden" id="CorpCardid" value="<% = Request.QueryString("CorpCardid")%>"> 
  96.             </td>
  97.           </tr>
  98.         </form>
  99.       </table>
  100.        </td>
  101.     </tr>
  102.     <tr class="back"> 
  103.       <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  104.           <!--#include file="Copyright.asp" -->
  105.         </div></td>
  106.     </tr>
  107.  
  108. </table>
  109. </body>
  110. </html>
  111. <%
  112. RsCorpCardObj.close
  113. set RsCorpCardObj = nothing
  114. End if
  115. Set Fs_User = Nothing
  116. %>
  117. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->