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

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

数据库编程

开发平台：

ASP/ASPX

PublicSupply.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 str_CurrPath
  9. str_CurrPath = Replace("/"&G_VIRTUAL_ROOT_DIR &"/"&G_USERFILES_DIR&"/"&Session("FS_UserNumber"),"//","/")
  10. '获得留言
  11. dim book_rs,new_count
  12. set book_rs= Server.CreateObject(G_FS_RS)
  13. book_rs.open "Select count(BookID) From FS_ME_Book where M_ReadUserNumber='"&Fs_User.UserNumber&"' and M_ReadTF=0 and M_Type=2",User_Conn,1,3
  14.  if book_rs(0)>0 then
  15.  new_count = "<span class=""tx""><b>您有留言"& book_rs(0) &"</b></span>"
  16.  else
  17.  new_count =  book_rs(0)
  18.  end if
  19. book_rs.close:set book_rs = nothing
  20. %>
  21. <html xmlns="http://www.w3.org/1999/xhtml">
  22. <title>User Manage Center-网站内容管理系统</title>
  23. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  24. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  25. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  26. <link href="../images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  27. <head></head>
  28. <body>
  30. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  31.   <tr>
  32.     <td>
  33.       <!--#include file="../top.asp" -->
  34.     </td>
  35.   </tr>
  36. </table>
  37. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  38.     <tr class="back"> 
  39.       <td   colspan="2" class="xingmu" height="26"> <!--#include file="../Top_navi.asp" -->
  40.     </td>
  41.     </tr>
  42.     <tr class="back"> 
  43.       <td width="18%" valign="top" class="hback"> <div align="left"> 
  44.           <!--#include file="../menu.asp" -->
  45.         </div></td>
  46.       <td width="82%" valign="top" class="hback">
  47.   <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  48.         <tr class="hback"> 
  49.           <td  valign="top">你的位置：<a href="../../">网站首页</a> &gt;&gt; <a href="../main.asp">会员首页</a> 
  50.             &gt;&gt; <a href="PublicManage.asp">供求系统</a> &gt;&gt;发布供求</td>
  51.         </tr>
  52.         <tr class="hback"> 
  53.           <td  valign="top"><a href="PublicSupply.asp">发布信息</a>┆<a href="PublicManage.asp">管理信息</a>┆<a href="PublicManage.asp#top10">你的信息浏览排行(TOP10)</a>┆<a href="PublicManage.asp#new">最新供求信息</a>┆<a href="PublicManage.asp#rec">供求推荐</a>┆<a href="../Book.asp?M_type=2">我的新留言(<%=new_count%>)</a></td>
  54.         </tr>
  55.       </table>
  56.       <table width="98%"  border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  57.         <form action="PubLic_Save.asp" method="post" name="s_form"  onSubmit="return checkinput();">
  58.           <tr class="hback"> 
  59.             <td width="100"> <div align="right">*信息标题</div></td>
  60.             <td > <input name="PubTitle" type="text" id="title2"  value="" size="40" maxlength="50">
  61.               *类型 
  62.               <select name="PubType" id="PubType">
  63.                 <option value="0" selected>供应</option>
  64.                 <option value="1">求购</option>
  65.                 <option value="2">合作</option>
  66.                 <option value="3">代理</option>
  67.                 <option value="4">其他</option>
  68.               </select>
  69.               　*所在地区 
  70.               <select name="AreaID" id="AreaID">
  71.                 <%
  72.   dim obj_zl_rs
  73.   set obj_zl_rs= Server.CreateObject(G_FS_RS)
  74.   obj_zl_rs.open "select ID,PID,ClassName From FS_SD_Address  where PID=0  order by ClassLevel desc,id asc",Conn,1,3
  75.   do while not obj_zl_rs.eof 
  76. Response.Write"<option value="""& obj_zl_rs("ID")&""">├"& obj_zl_rs("ClassName")&"</option>"
  77.   Response.Write childAreaclassList(obj_zl_rs("ID")," ")
  78.   obj_zl_rs.movenext
  79.   Loop
  80.   obj_zl_rs.close:set obj_zl_rs =nothing
  81.   %>
  82.               </select></td>
  83.           </tr>
  84.           <tr class="hback"> 
  85.             <td width="100"> <div align="right">*分类</div></td>
  86.             <td > <select name="ClassID" id="ClassID">
  87.                 <%
  88.   set obj_zl_rs= Server.CreateObject(G_FS_RS)
  89.   obj_zl_rs.open "select ID,PID,GQ_ClassName,PID,classorder From FS_SD_Class  where PID=0  order by classorder desc,id desc",Conn,1,3
  90.   do while not obj_zl_rs.eof 
  91. Response.Write"<option value="""& obj_zl_rs("ID")&""">├"& obj_zl_rs("GQ_ClassName")&"</option>"
  92.   Response.Write childclassList(obj_zl_rs("ID")," ")
  93.   obj_zl_rs.movenext
  94.   Loop
  95.   obj_zl_rs.close:set obj_zl_rs =nothing
  96.   %>
  97.               </select>
  98.               　　我的专栏 
  99.               <select name="MyClassID" id="MyClassID">
  100.                 <option value="">选择您的归类</option>
  101.                 <%
  102.   set obj_zl_rs= Server.CreateObject(G_FS_RS)
  103.   obj_zl_rs.open "select ClassID,ClassCName,ClassEName,ParentID,UserNumber,ClassTypes From FS_ME_InfoClass  where ParentID=0 and ClassTypes=4 and UserNumber='"& Fs_User.UserNumber&"' order by ClassID desc",User_Conn,1,3
  104.   do while not obj_zl_rs.eof 
  105.    Response.Write"<option value="""& obj_zl_rs("ClassID")&""">"& obj_zl_rs("ClassCName")&"</option>"
  106.   obj_zl_rs.movenext
  107.   Loop
  108.   obj_zl_rs.close:set obj_zl_rs =nothing
  109.   %>
  110.               </select></td>
  111.           </tr>
  112.           <tr class="hback"> 
  113.             <td><div align="right">关键字</div></td>
  114.             <td ><input name="keyword1" type="text" id="keyword1"  value="" size="17" maxlength="15">
  115.               , 
  116.               <input name="keyword2" type="text" id="keyword2"  value="" size="17" maxlength="15">
  117.               , 
  118.               <input name="keyword3" type="text" id="keyword3"  value="" size="17" maxlength="15"></td>
  119.           </tr>
  120.           <tr class="hback"> 
  121.             <td width="100"> <div align="right">经营方式</div></td>
  122.             <td > <input name="CompType" type="radio" value="0">
  123.               批发 
  124.               <input name="CompType" type="radio" value="1" checked>
  125.               零售 
  126.               <input type="radio" name="CompType" value="2">
  127.               批零兼营</td>
  128.           </tr>
  129.           <tr class="hback"> 
  130.             <td width="100"> <div align="right">数量</div></td>
  131.             <td ><input name="PubNumber" type="text" id="PubNumber" value="0" size="23">
  132.               　有效期限 
  133.               <input name="ValidTime" type="text" id="ValidTime" size="24"  value="15">
  134.               天。有效值为1~360</td>
  135.           </tr>
  136.           <tr class="hback"> 
  137.             <td rowspan="2" align="center"><div align="right">产品参数</div></td>
  138.             <td  align="center"><div align="left">包装说明 
  139.                 <input name="PubPack" type="text" id="PubPack" maxlength="100">
  140.                 产品价格 
  141.                 <input name="PubPrice" type="text" id="PubPrice" value="0" maxlength="10">
  142.                 ,0表示面议</div></td>
  143.           </tr>
  144.           <tr class="hback"> 
  145.             <td  align="center"><div align="left">产品规格 
  146.                 <input name="Pubgui" type="text" id="title3"  value="" size="53" maxlength="50">
  147.               </div></td>
  148.           </tr>
  149.           <tr class="hback">
  150.             <td align="center"><div align="right">*产地</div></td>
  151.             <td  align="center"><div align="left">
  152.                 <input name="PubAddress" type="text" id="Pubgui"  value="" size="53" maxlength="50">
  153.               </div></td>
  154.           </tr>
  155.           <tr class="hback"> 
  156.             <td width="100" align="center"> <div align="right">*描述</div></td>
  157.             <td  align="center"> <div align="left"> 
  158.                 <textarea name="PubContent" rows="6" id="PubContent" style="width:100%"></textarea>
  159.               </div></td>
  160.           </tr>
  161.           <tr class="hback"> 
  162.             <td align="center"><div align="right">图片</div></td>
  163.             <td align="center"><table width="100%" border="0" cellspacing="1" cellpadding="5">
  164.                 <tr> 
  165.                   <td width="29%"><div align="center"> 
  166.                       <table width="10" border="0" cellspacing="1" cellpadding="2" class="table">
  167.                         <tr> 
  168.                           <td class="hback"><img src="../Images/nopic_supply.gif" width="90" height="90" id="pic_p_1"></td>
  169.                         </tr>
  170.                       </table>
  171.                       <input name="pic_1" type="hidden" id="pic_1" size="40" >
  172.                     </div></td>
  173.                   <td width="36%"><div align="center"> 
  174.                       <table width="10" border="0" cellspacing="1" cellpadding="2" class="table">
  175.                         <tr> 
  176.                           <td class="hback"><img src="../Images/nopic_supply.gif" width="90" height="90" id="pic_p_2"></td>
  177.                         </tr>
  178.                       </table>
  179.                       <input name="pic_2" type="hidden" id="pic_2" size="40">
  180.                     </div></td>
  181.                   <td width="35%"><div align="center"> 
  182.                       <table width="10" border="0" cellspacing="1" cellpadding="2" class="table">
  183.                         <tr> 
  184.                           <td class="hback"><img src="../Images/nopic_supply.gif" width="90" height="90" id="pic_p_3"></td>
  185.                         </tr>
  186.                       </table>
  187.                       <input name="pic_3" type="hidden" id="pic_3" size="40">
  188.                     </div></td>
  189.                 </tr>
  190.                 <tr> 
  191.                   <td><div align="center"><img  src="../Images/upfile.gif" width="44" height="22" onClick="OpenWindowAndSetValue('../CommPages/SelectPic.asp?CurrPath=<% = str_CurrPath %>&f_UserNumber=<% = session("FS_UserNumber")%>',500,320,window,document.s_form.pic_1);" style="cursor:hand;"> 
  192.                       　<img src="../Images/del_supply.gif" width="44" height="22" onClick="dels_1();" style="cursor:hand;"> 
  193.                     </div></td>
  194.                   <td><div align="center"><img  src="../Images/upfile.gif" width="44" height="22" onClick="OpenWindowAndSetValue('../CommPages/SelectPic.asp?CurrPath=<% = str_CurrPath %>&f_UserNumber=<% = session("FS_UserNumber")%>',500,320,window,document.s_form.pic_2);" style="cursor:hand;"> 
  195.                       　<img src="../Images/del_supply.gif" width="44" height="22" onClick="dels_2();" style="cursor:hand;"> 
  196.                     </div></td>
  197.                   <td><div align="center"><img  src="../Images/upfile.gif" width="44" height="22" onClick="OpenWindowAndSetValue('../CommPages/SelectPic.asp?CurrPath=<% = str_CurrPath %>&f_UserNumber=<% = session("FS_UserNumber")%>',500,320,window,document.s_form.pic_3);" style="cursor:hand;"> 
  198.                       　<img src="../Images/del_supply.gif" width="44" height="22" onClick="dels_3();" style="cursor:hand;"> 
  199.                     </div></td>
  200.                 </tr>
  201.               </table></td>
  202.           </tr>
  203.           <tr class="hback"> 
  204.             <td align="center">&nbsp;</td>
  205.             <td align="center"> <div align="left"> 
  206.                 <input type="submit" name="Submit" value="保存信息">
  207.                 <input type="reset" name="Submit" value="重置">
  208.                 <input name="Action" type="hidden" id="Action" value="add">
  209.               </div></td>
  210.           </tr>
  211.         </form>
  212.       </table>
  213.       </td>
  214.     </tr>
  215.     <tr class="back"> 
  216.       <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  217.           <!--#include file="../Copyright.asp" -->
  218.         </div></td>
  219.     </tr>
  220. </table>
  221. </body>
  222. </html>
  223. <%
  224. Function childclassList(f_classid,f_tmp)
  225. Dim f_Child_c_Rs,ChildTypeListStr,f_TempStr,f_isUrlStr,lng_GetCount
  226. Set f_Child_c_Rs = Conn.Execute("Select ID,PID,GQ_ClassName,classorder From FS_SD_Class  where PID=" & f_classid & "  order by classorder desc,id desc" )
  227. f_TempStr =f_tmp & "┄"
  228. do while Not f_Child_c_Rs.Eof
  229. childclassList = childclassList & "<option value="""& f_Child_c_Rs("ID") &""">"
  230. childclassList = childclassList & "├" & f_TempStr &  f_Child_c_Rs("GQ_ClassName") 
  231. childclassList = childclassList & "</option>" & Chr(13) & Chr(10)
  232. childclassList = childclassList &childclassList(f_Child_c_Rs("ID"),f_TempStr)
  233. f_Child_c_Rs.MoveNext
  234. loop
  235. f_Child_c_Rs.Close
  236. Set f_Child_c_Rs = Nothing
  237. end function
  238. Function childAreaclassList(f_classid,f_tmp)
  239. dim rs_1,f_TempStr
  240. Set rs_1 = Conn.Execute("Select ID,PID,ClassName From FS_SD_Address  where PID=" & f_classid & "  order by ClassLevel desc,id asc" )
  241. f_TempStr =f_tmp & "┄"
  242. do while Not rs_1.Eof
  243. childAreaclassList = childAreaclassList & "<option value="""& rs_1("ID") &""">"
  244. childAreaclassList = childAreaclassList & "├" & f_TempStr &  rs_1("ClassName") 
  245. childAreaclassList = childAreaclassList & "</option>" & Chr(13) & Chr(10)
  246. childAreaclassList = childAreaclassList &childAreaclassList(rs_1("ID"),f_TempStr)
  247. rs_1.MoveNext
  248. loop
  249. rs_1.Close
  250. Set rs_1 = Nothing
  251. end function
  252. Set Fs_User = Nothing
  253. Set User_Conn = Nothing
  254. Set Conn = Nothing
  255. %>
  256. <script language="JavaScript" type="text/JavaScript">
  257. new Form.Element.Observer($('pic_1'),1,pics_1);
  258. function pics_1()
  259. {
  260. if ($('pic_1').value=='')
  261. {
  262. $('pic_p_1').src='../Images/nopic_supply.gif'
  263. }
  264. else
  265. {
  266. $('pic_p_1').src=$('pic_1').value
  267. }
  268. } 
  269. new Form.Element.Observer($('pic_2'),1,pics_2);
  270. function pics_2()
  271. {
  272. if($('pic_2').value=='')
  273. {
  274. $('pic_p_2').src='../Images/nopic_supply.gif'
  275. }
  276. else
  277. {
  278. $('pic_p_2').src=$('pic_2').value
  279. }
  280. } 
  281. new Form.Element.Observer($('pic_3'),1,pics_3);
  282. function pics_3()
  283. {
  284. if($('pic_3').value=='')
  285. {
  286. $('pic_p_3').src='../Images/nopic_supply.gif'
  287. }
  288. else
  289. {
  290. $('pic_p_3').src=$('pic_3').value
  291. }
  292. }
  293. function dels_1()
  294. {
  295. document.s_form.pic_1.value=''
  296. }
  297. function dels_2()
  298. {
  299. document.s_form.pic_2.value=''
  300. }
  301. function dels_3()
  302. {
  303. document.s_form.pic_3.value=''
  304. }
  305. function checkinput()
  306. {
  307. if(document.s_form.PubTitle.value=='') {
  308. alert("请填写信息标题")
  309. s_form.PubTitle.focus();
  310. return false;
  311. }
  312. if(document.s_form.PubAddress.value=='') {
  313. alert("填写所在地区")
  314. s_form.PubAddress.focus();
  315. return false;
  316. }
  317. if(document.s_form.ClassID.value=='') {
  318. alert("请填写分类")
  319. s_form.ClassID.focus();
  320. return false;
  321. }
  322. if(document.s_form.PubContent.value=='') {
  323. alert("填写信息描述")
  324. s_form.PubContent.focus();
  325. return false;
  326. }
  327. }
  328. </script>
  329. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->