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

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

数据库编程

开发平台：

ASP/ASPX

WithDraw_Apply.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. <!--#include file="../../FS_Inc/Func_Page.asp" -->
  8. <% 'Copyright (c) 2006 Foosun Inc. Code by awen
  9. Dim FS_MS_WithDraw_Rs,This_Sub_Sql
  10. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
  11. int_RPP=15 '设置每页显示数目
  12. int_showNumberLink_=10 '数字导航显示数目
  13. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  14. str_nonLinkColor_="#999999" '非热链接颜色
  15. toF_="<font face=webdings>9</font>"    '首页 
  16. toP10_=" <font face=webdings>7</font>" '上十
  17. toP1_=" <font face=webdings>3</font>" '上一
  18. toN1_=" <font face=webdings>4</font>" '下一
  19. toN10_=" <font face=webdings>8</font>" '下十
  20. toL_="<font face=webdings>:</font>" '尾页
  22. Function and_where(sql)
  23. if instr(lcase(sql)," where ")>0 then 
  24. and_where = sql & " and "
  25. else
  26. and_where = sql & " where "
  27. end if
  28. End Function 
  29. Function Get_While_Info(Add_Sql)
  30. Dim Get_Html,This_Fun_Sql,ii,Str_Tmp,Arr_Tmp,New_Search_Str,Req_Str,regxp
  31. Str_Tmp = "ID,WithDrawNumber,OrderNumber,Descryption,State,Dealer,DealTime,ReturnInfo,RealName,Sex,Address,PostCode,Mobile,Tel"
  32. This_Fun_Sql = "select "&Str_Tmp&" from FS_MS_WithDraw where UserNumber='"&session("FS_UserNumber")&"'"
  33. if Add_Sql<>"" then 
  34. if instr(Add_Sql,"order by")>0 then 
  35. This_Fun_Sql = This_Fun_Sql &"  "& Add_Sql
  36. else
  37. This_Fun_Sql = and_where(This_Fun_Sql) & Add_Sql
  38. end if
  39. end if
  40. if request.QueryString("Act")="SearchGo" then 
  41. Arr_Tmp = split(Str_Tmp,",")
  42. for each Str_Tmp in Arr_Tmp
  43. if Trim(request.Form("frm_"&Str_Tmp))<>"" then 
  44. Req_Str = NoSqlHack(Trim(request.Form("frm_"&Str_Tmp)))
  45. select case Str_Tmp
  46. case "ID","State","DealTime"
  47. ''数字,日期
  48. regxp = "|<|>|=|<=|>=|<>|"
  49. if instr(regxp,"|"&left(Req_Str,1)&"|")>0 or instr(regxp,"|"&left(Req_Str,2)&"|")>0 then 
  50. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" "& Req_Str
  51. elseif instr(Req_Str,"*")>0 then 
  52. if left(Req_Str,1)="*" then Req_Str = "%"&mid(Req_Str,2)
  53. if right(Req_Str,1)="*" then Req_Str = mid(Req_Str,1,len(Req_Str) - 1) & "%"
  54. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" like '"& Req_Str &"'"
  55. else
  56. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" = "& Req_Str
  57. end if
  58. case else
  59. ''字符
  60. New_Search_Str = and_where(New_Search_Str) & Search_TextArr(Req_Str,Str_Tmp,"")
  61. end select 
  62. end if
  63. next
  64. if New_Search_Str<>"" then This_Fun_Sql = and_where(This_Fun_Sql) & replace(New_Search_Str," where ","")
  65. 'response.End()
  66. end if
  67. Str_Tmp = ""
  68. Set FS_MS_WithDraw_Rs = CreateObject(G_FS_RS)
  69. FS_MS_WithDraw_Rs.Open This_Fun_Sql,Conn,1,1
  70. IF not FS_MS_WithDraw_Rs.eof THEN
  72. FS_MS_WithDraw_Rs.PageSize=int_RPP
  73. cPageNo=NoSqlHack(Request.QueryString("Page"))
  74. If cPageNo="" Then cPageNo = 1
  75. If not isnumeric(cPageNo) Then cPageNo = 1
  76. cPageNo = Clng(cPageNo)
  77. If cPageNo<=0 Then cPageNo=1
  78. If cPageNo>FS_MS_WithDraw_Rs.PageCount Then cPageNo=FS_MS_WithDraw_Rs.PageCount 
  79. FS_MS_WithDraw_Rs.AbsolutePage=cPageNo
  81.   FOR int_Start=1 TO int_RPP 
  82. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf
  83. Get_Html = Get_Html & "<td align=""center"" style=""cursor:hand"" onclick=""javascript:if(TD_U_"&FS_MS_WithDraw_Rs("ID")&".style.display=='') TD_U_"&FS_MS_WithDraw_Rs("ID")&".style.display='none'; else TD_U_"&FS_MS_WithDraw_Rs("ID")&".style.display='';"" title='点击查看处理情况'>"&FS_MS_WithDraw_Rs("ID")&"</td>" & vbcrlf
  84. Get_Html = Get_Html & "<td align=""center"" style=""cursor:hand"" onclick=""javascript:if(TD_SH_"&FS_MS_WithDraw_Rs("ID")&".style.display=='') TD_SH_"&FS_MS_WithDraw_Rs("ID")&".style.display='none'; else TD_SH_"&FS_MS_WithDraw_Rs("ID")&".style.display='';"" title='点击查看收货人情况'>"&FS_MS_WithDraw_Rs("RealName")&"</td>" & vbcrlf
  85. Get_Html = Get_Html & "<td align=""center""><a href=""WithDraw_Apply.asp?Act=Edit&ID="&FS_MS_WithDraw_Rs("ID")&""" class=""otherset"" title='点击查看详细/修改'>"&FS_MS_WithDraw_Rs("WithDrawNumber")&"</a></td>" & vbcrlf
  86. Get_Html = Get_Html & "<td align=""center""><a href=""../order.asp?OrderNumber="&FS_MS_WithDraw_Rs("OrderNumber")&""" title=""查看该订单信息"" target=_blank>"&FS_MS_WithDraw_Rs("OrderNumber")&"</a></td>" & vbcrlf
  87. Get_Html = Get_Html & "<td align=""center"">"& left(FS_MS_WithDraw_Rs("Descryption"),50) & "...</td>" & vbcrlf
  88. Get_Html = Get_Html & "<td align=""center"">"& Replacestr(FS_MS_WithDraw_Rs("State"),"1:已处理,0:<span class=tx>未处理</span>,else:未知的状态") & "</td>" & vbcrlf
  89. Get_Html = Get_Html & "<td align=""center"" class=""ischeck""><input type=""checkbox"" name=""ID"" id=""ID"" value="""&FS_MS_WithDraw_Rs("ID")&""" /></td>" & vbcrlf
  90. Get_Html = Get_Html & "</tr>" & vbcrlf 
  91. ''++++++++++++++++++++++++++++++++++++++点开时显示详细信息。
  92. Get_Html = Get_Html & "<tr class=""hback"" id=""TD_SH_"& FS_MS_WithDraw_Rs("ID") &""" style=""display:none""><td colspan=20>" & vbcrlf
  93. Get_Html = Get_Html & "<table width=""100%"" height=""30"" border=""0"" cellspacing=""1"" cellpadding=""2"" class=""table"">" & vbcrlf 
  94. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td>收货人姓名:"&FS_MS_WithDraw_Rs("RealName")& " 手机号码:"&FS_MS_WithDraw_Rs("Mobile")& " 联系电话:"&FS_MS_WithDraw_Rs("Tel")& "</td></tr>" & vbcrlf
  95. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td>处理地址:"&FS_MS_WithDraw_Rs("Address") & " 邮政编码:"&FS_MS_WithDraw_Rs("PostCode") & "</td></tr>" & vbcrlf
  96. Get_Html = Get_Html & "</table>" & vbcrlf
  97. Get_Html = Get_Html &"</td></tr>" & vbcrlf
  98. ''+++++++++++++++++++++++++++++++++++++++
  99. ''++++++++++++++++++++++++++++++++++++++点开时显示详细信息。
  100. Get_Html = Get_Html & "<tr class=""hback"" id=""TD_U_"& FS_MS_WithDraw_Rs("ID") &""" style=""display:none""><td colspan=20>" & vbcrlf
  101. Get_Html = Get_Html & "<table width=""100%"" height=""30"" border=""0"" cellspacing=""1"" cellpadding=""2"" class=""table"">" & vbcrlf 
  102. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td  colspan=10>处理反馈:<br />"&FS_MS_WithDraw_Rs("ReturnInfo")& "</td></tr>" & vbcrlf
  103. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf &"<td>处理人姓名:"&FS_MS_WithDraw_Rs("Dealer") & "</td><td>处理时间:"&FS_MS_WithDraw_Rs("DealTime") & "</td></tr>" & vbcrlf
  104. Get_Html = Get_Html & "</table>" & vbcrlf
  105. Get_Html = Get_Html &"</td></tr>" & vbcrlf
  106. ''+++++++++++++++++++++++++++++++++++++++
  107. FS_MS_WithDraw_Rs.MoveNext
  108.   if FS_MS_WithDraw_Rs.eof or FS_MS_WithDraw_Rs.bof then exit for
  109.       NEXT
  110. END IF
  111. Get_Html = Get_Html & "<tr class=""hback""><td colspan=20 align=""center"" class=""ischeck"">"& vbcrlf &"<table width=""100%"" border=0><tr><td height=30>" & vbcrlf
  112. Get_Html = Get_Html & fPageCount(FS_MS_WithDraw_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)  & vbcrlf
  113. Get_Html = Get_Html & "</td><td align=right><input type=""submit"" name=""submit"" value="" 删除 "" onclick=""javascript:return confirm('确定要删除所选项目吗?');""></td>"
  114. Get_Html = Get_Html &"</tr></table>"&vbNewLine&"</td></tr>"
  115. Get_Html = Get_Html &"</td></tr>"
  116. FS_MS_WithDraw_Rs.close
  117. Get_While_Info = Get_Html
  118. End Function
  120. Sub Del()
  121. Dim Str_Tmp
  122. if request.QueryString("ID")<>"" then 
  123. Conn.execute("Delete from FS_MS_WithDraw where ID = "&request.QueryString("ID"))
  124. else
  125. Str_Tmp = request.form("ID")
  126. if Str_Tmp="" then response.Redirect("../lib/error.asp?ErrCodes=<li>你必须至少选择一个进行删除。</li>")
  127. Str_Tmp = replace(Str_Tmp," ","")
  128. Conn.execute("Delete from FS_MS_WithDraw where ID in ("&Str_Tmp&")")
  129. end if
  130. response.Redirect("../lib/success.asp?ErrorUrl="&server.URLEncode( "../Mall/WithDraw_Apply.asp?Act=View" )&"&ErrCodes=<li>恭喜，删除成功。</li>")
  131. End Sub
  132. ''================================================================
  133. Function Get_WithDrawNumber()
  134. Dim this_Str
  135. this_Str = formatedate(year(now))&formatedate(month(now))&formatedate(day(now))&formatedate(hour(now))&formatedate(minute(now))&formatedate(second(now))
  136. this_Str = this_Str & GetRamCode(3)
  137. Get_WithDrawNumber = this_Str
  138. this_Str = ""
  139. End Function
  140. Function formatedate(str)
  141. select case len(str)
  142. case 3,4
  143. formatedate = right(str,2)
  144. case 1
  145. formatedate = "0"&str
  146. end select
  147. str = ""
  148. End Function
  149. ''得到相关表的值。
  150. Function Get_OtherTable_Value(This_Fun_Sql)
  151. Dim This_Fun_Rs
  152. if instr(This_Fun_Sql," FS_ME_")>0 then 
  153. set This_Fun_Rs = User_Conn.execute(This_Fun_Sql)
  154. else
  155. set This_Fun_Rs = Conn.execute(This_Fun_Sql)
  156. end if
  157. if not This_Fun_Rs.eof then 
  158. Get_OtherTable_Value = This_Fun_Rs(0)
  159. else
  160. Get_OtherTable_Value = ""
  161. end if
  162. if Err.Number>0 then 
  163. Err.Clear
  164. response.Redirect("../lib/error.asp?ErrCodes=<li>Get_OtherTable_Value未能得到相关数据。错误描述："&Err.Description&"</li>") : response.End()
  165. end if
  166. set This_Fun_Rs=nothing 
  167. End Function
  169. Sub Save()
  170. Dim Str_Tmp,Arr_Tmp,ID,UserNumber
  171. Str_Tmp = "OrderNumber,Descryption,RealName,Sex,Address,PostCode,Mobile,Tel"
  172. Arr_Tmp = split(Str_Tmp,",") 
  173. ID = NoSqlHack(request.Form("ID"))
  174. if not isnumeric(ID) or ID = "" then ID = 0 
  175. This_Sub_Sql = "select WithDrawNumber,UserNumber,State,"&Str_Tmp&" from FS_MS_WithDraw where ID="&ID&" and  UserNumber='"&session("FS_UserNumber")&"'"
  176. Set FS_MS_WithDraw_Rs = CreateObject(G_FS_RS)
  177. FS_MS_WithDraw_Rs.Open This_Sub_Sql,Conn,3,3
  178. if ID > 0 then 
  179. ''修改
  180. for each Str_Tmp in Arr_Tmp
  181. FS_MS_WithDraw_Rs(Str_Tmp) = NoSqlHack(request.Form("frm_"&Str_Tmp))
  182. 'response.Write(Str_Tmp &":"&NoSqlHack(request.Form("frm_"&Str_Tmp)))&"<br>"
  183. next
  184. FS_MS_WithDraw_Rs.update
  185. FS_MS_WithDraw_Rs.close
  186. response.Redirect("../lib/success.asp?ErrorUrl="&server.URLEncode( "../Mall/WithDraw_Apply.asp?Act=Edit&ID="&ID )&"&ErrCodes=<li>恭喜，修改成功。</li>")
  187. else
  188. ''新增
  189. FS_MS_WithDraw_Rs.addnew
  190. FS_MS_WithDraw_Rs("State") = 0
  191. FS_MS_WithDraw_Rs("UserNumber") = session("FS_UserNumber")
  192. FS_MS_WithDraw_Rs("WithDrawNumber") = Get_WithDrawNumber()
  193. for each Str_Tmp in Arr_Tmp
  194. FS_MS_WithDraw_Rs(Str_Tmp) = NoSqlHack(request.Form("frm_"&Str_Tmp))
  195. next
  196. FS_MS_WithDraw_Rs.update
  197. FS_MS_WithDraw_Rs.close
  198. response.Redirect("../lib/success.asp?ErrorUrl="&server.URLEncode( "../Mall/WithDraw_Apply.asp" ) &"&ErrCodes=<li>恭喜，新增成功。</li>")
  199. end if
  200. End Sub
  201. ''=========================================================
  202. %>
  203. <html xmlns="http://www.w3.org/1999/xhtml">
  204. <title>退货申请管理---网站内容管理系统</title>
  205. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  206. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  207. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  208. <meta name="Keywords" content="Foosun,FoosunCMS,Foosun Inc.,风讯,风讯网站内容管理系统,风讯系统,风讯新闻系统,风讯商城,风讯b2c,新闻系统,CMS,域名空间,asp,jsp,asp.net,SQL,SQL SERVER" />
  209. <link href="../images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  210. <script language="JavaScript" src="../../FS_Inc/PublicJS_YanZheng.js"></script>
  211. <script language="JavaScript" type="text/JavaScript">
  212. <!--
  213. //点击标题排序
  214. var Old_Sql = document.URL;
  216. function OrderByName(FildName)
  217. {
  218. //alert(document.URL);
  219. var New_Sql;
  220. if(Old_Sql.indexOf('Add_Sql')<0)
  221. {
  222. if(Old_Sql.indexOf('?')<0)
  223. New_Sql = Old_Sql + "?Add_Sql=order by " + FildName;
  224. else
  225. New_Sql = Old_Sql + "&Add_Sql=order by " + FildName;
  226. }
  227. else
  228. {
  229. if(Old_Sql.indexOf("Add_Sql=order by " + FildName + " desc")>-1)
  230. {
  231. New_Sql = Old_Sql.substring(0,Old_Sql.indexOf("Add_Sql=")) + "Add_Sql=order by " + FildName;
  232. }
  233. else
  234. {
  235. New_Sql = Old_Sql.substring(0,Old_Sql.indexOf("Add_Sql=")) + "Add_Sql=order by " + FildName + " desc";
  236. }
  237. }
  238. //alert(New_Sql);
  239. location = New_Sql;
  240. }
  241. -->
  242. </script>
  243. <BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes  oncontextmenu="return true;">
  244. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  245.   <tr>
  246.     <td>
  247.       <!--#include file="../top.asp" -->
  248.     </td>
  249.   </tr>
  250. </table>
  251. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  252.   
  253.     <tr class="back"> 
  254.       <td   colspan="2" class="xingmu" height="26"> <!--#include file="../Top_navi.asp" --> </td>
  255.     </tr>
  256.     <tr class="back"> 
  257.       <td width="18%" valign="top" class="hback"> <div align="left"> 
  258.           <!--#include file="../menu.asp" -->
  259.         </div></td>
  260.       <td width="82%" valign="top" class="hback"><table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  261.           <tr class="hback"> 
  262.             
  263.           <td class="hback"><strong>位置：</strong><a href="../../">网站首页</a> &gt;&gt; 
  264.             <a href="../main.asp">会员首页</a> &gt;&gt; <a href="../order.asp">定单管理</a>－退货申请管理</td>
  265.           </tr>
  266.         </table>
  267. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  268.   <tr  class="hback"> 
  269.     <td class="xingmu" >退货申请管理</td>
  270.   </tr>
  271.   <tr  class="hback"> 
  272.     <td><a href="WithDraw_Apply.asp?Act=View">管理首页</a>
  273.  | <a href="WithDraw_Apply.asp?Act=Search">查询</a> | 
  274.  (<a href="WithDraw_Apply.asp?Act=View&Add_Sql=<%=server.URLEncode("state=0")%>">未处理</a> | <a href="WithDraw_Apply.asp?Act=View&Add_Sql=<%=server.URLEncode("state=1")%>">已处理</a>)</td>
  275.   </tr>
  276. </table>
  277. <%
  278. '******************************************************************
  279. select case request.QueryString("Act")
  280. case "","View","SearchGo"
  281. View
  282. case  "Add","Edit","Search"
  283. Add_Edit_Search
  284. case "Save"
  285. Save
  286. case "Del"
  287. Del
  288. case "OtherEdit"
  289. OtherEdit
  290. case else
  291. response.Write("请确认请求是否正确？")
  292. end select
  294. '******************************************************************
  295. Sub View()%>
  296. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  297.   <form name="form1" method="post" action="?Act=Del">
  298.     <tr  class="hback"> 
  299.       <td align="center" class="xingmu"><a href="javascript:OrderByName('ID')" class="sd"><b>〖ID〗</b></a> <span id="Show_Oder_ID"></span></td>
  300.   <td align="center" class="xingmu"><a href="javascript:OrderByName('RealName')" class="sd"><b>收货人姓名</b></a> <span id="Show_Oder_RealName"></span></td>
  301.       <td align="center" class="xingmu"><a href="javascript:OrderByName('WithDrawNumber')" class="sd"><b>退货编号</b></a> <span id="Show_Oder_WithDrawNumber"></span></td>
  302.   <td align="center" class="xingmu"><a href="javascript:OrderByName('OrderNumber')" class="sd"><b>订单编号</b></a> <span id="Show_Oder_OrderNumber"></span></td>
  303.   <td align="center" class="xingmu"><a href="javascript:OrderByName('Descryption')" class="sd"><b>退货原因</b></a> <span id="Show_Oder_Descryption"></span></td>
  304.   <td align="center" class="xingmu"><a href="javascript:OrderByName('State')" class="sd"><b>退货状态</b></a> <span id="Show_Oder_State"></span></td>
  305.       <td width="2%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
  306.     </tr>
  307.     <%
  308. response.Write( Get_While_Info( request.QueryString("Add_Sql") ) )
  309. %>
  310.   </form>
  311. </table>
  312. <%End Sub
  314. Sub Add_Edit_Search()
  315. Dim ID,Bol_IsEdit,OrderNumber,State,RealName,Sex,Address,PostCode,Mobile,Tel
  316. Bol_IsEdit = false
  317. if request.QueryString("Act")="Edit" then 
  318. ID = request.QueryString("ID")
  319. if not isnumeric(ID) or ID="" then response.Redirect("../lib/error.asp?ErrorUrl=&ErrCodes=<li>必要的ID没有提供</li>") : response.End()
  320. This_Sub_Sql = "select ID,OrderNumber,Descryption,State,Dealer,DealTime,ReturnInfo,RealName,Sex,Address,PostCode,Mobile,Tel from FS_MS_WithDraw where ID="&ID&" and  UserNumber='"&session("FS_UserNumber")&"'"
  321. Set FS_MS_WithDraw_Rs = CreateObject(G_FS_RS)
  322. FS_MS_WithDraw_Rs.Open This_Sub_Sql,Conn,1,1
  323. if FS_MS_WithDraw_Rs.eof then response.Redirect("../lib/error.asp?ErrorUrl=&ErrCodes=<li>没有相关的内容,或该内容已不存在.</li>") : response.End()
  324. Bol_IsEdit = True
  325. OrderNumber = FS_MS_WithDraw_Rs("OrderNumber")
  326. State  = FS_MS_WithDraw_Rs("State")
  327. RealName = FS_MS_WithDraw_Rs("RealName")
  328. Sex = FS_MS_WithDraw_Rs("Sex")
  329. Address = FS_MS_WithDraw_Rs("Address")
  330. PostCode = FS_MS_WithDraw_Rs("PostCode")
  331. Mobile = FS_MS_WithDraw_Rs("Mobile")
  332. Tel = FS_MS_WithDraw_Rs("Tel")
  333. elseif request.QueryString("Act")="Add" then 
  334. State = 0
  335. OrderNumber = NoSqlHack(request.QueryString("OrderNumber"))
  336. set FS_MS_WithDraw_Rs = User_Conn.execute("select M_UserName,M_Address,M_Tel,M_PostCode,M_Mobile,M_Sex from FS_ME_Order where OrderNumber='"&OrderNumber&"' and UserNumber='"&session("FS_UserNumber")&"'")
  337. if FS_MS_WithDraw_Rs.eof then response.Redirect("../lib/error.asp?ErrorUrl=&ErrCodes=<li>没有相关的内容,或该内容已不存在.</li>") : response.End()
  339. RealName = FS_MS_WithDraw_Rs("M_UserName")
  340. Sex = FS_MS_WithDraw_Rs("M_Sex")
  341. Address = FS_MS_WithDraw_Rs("M_Address")
  342. PostCode = FS_MS_WithDraw_Rs("M_PostCode")
  343. Mobile = FS_MS_WithDraw_Rs("M_Mobile")
  344. Tel = FS_MS_WithDraw_Rs("M_Tel")
  345. end if
  346. %>
  347. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  348.   <form name="form_Save" onsubmit="return Validator.Validate(this,3);" method="post" action="<%if request.QueryString("Act")="Search" then response.Write("?Act=SearchGo") else response.Write("?Act=Save") end if%>">
  349.     <tr  class="hback"> 
  350.       <td colspan="3" align="left" class="xingmu" ><%if Bol_IsEdit then response.Write("修改退货信息<input type=""hidden"" name=""ID"" value="""&FS_MS_WithDraw_Rs(0)&""">") else response.Write("退货信息") end if%></td>
  351. </tr>
  352. <%if request.QueryString("Act")="Search" then %>
  353.     <tr  class="hback"> 
  354.        <td width="20%" align="right">退货ID</td>
  355.       <td>
  356. <input name="frm_ID" type="text" value="" size="50" maxlength="11">
  357.       </td>
  358.     </tr>
  359.     <tr  class="hback"> 
  360.       <td align="right">退货编号</td>
  361.       <td>
  362. <input name="frm_WithDrawNumber" type="text" value="" size="50" maxlength="20">
  363.       </td>
  364.     </tr>
  365. <%end if%>
  366.     <tr  class="hback"> 
  367.       <td align="right">对应订单编号</td>
  368.       <td>
  369.   <%if request.QueryString("Act")="Search" then %>
  370.     <input name="frm_OrderNumber" type="text" value="" size="50" maxlength="20">
  371.   <%else%>
  372. <input name="frm_OrderNumber" type="hidden" value="<%=OrderNumber%>">
  373.   <%end if%>
  374. <%response.Write("<a href=""../order.asp?OrderNumber="&OrderNumber&""" title=""查看对应的订单情况"" target=_blank>"&OrderNumber&"</a>")%>
  375.       </td>
  376.     </tr>
  377.     <tr  class="hback"> 
  378.       <td align="right">退货原因</td>
  379.       <td>
  380. <textarea name="frm_Descryption" cols="50" rows="10" <%if request.querystring("act")<>"Search" then response.Write("datatype=""Require"" msg=""退货原因必须填写""") end if%>><%if Bol_IsEdit then response.Write(FS_MS_WithDraw_Rs("Descryption")) end if%></textarea>
  381.       </td>
  382.     </tr>
  383.      <tr  class="hback"> 
  384.       <td align="right">收货人姓名</td>
  385.       <td>
  386. <input type="text" name="frm_RealName" size="50" maxlength="30" value="<%=RealName%>" <%if request.querystring("act")<>"Search" then response.Write("datatype=""Require"" msg=""收货人姓名必须填写""") end if%>>
  387.   </td>
  388.     </tr>
  389.      <tr  class="hback"> 
  390.       <td align="right">收货人性别</td>
  391.       <td>
  392. <select name="frm_Sex" <%if request.querystring("act")<>"Search" then response.Write("datatype=""Require"" msg=""收货人姓名必须填写""") end if%>>
  393.  <%=PrintOption(State,":请选择,1:女,0:男")%>
  394. </select>  
  395.   </td>
  396.     </tr>
  397.      <tr  class="hback"> 
  398.       <td align="right">收货人手机号码</td>
  399.       <td>
  400. <input type="text" name="frm_Mobile" size="50"  maxlength="20" value="<%=Mobile%>" <%if request.querystring("act")<>"Search" then response.Write("require=false datatype=""Mobile"" msg=""收货人手机号码格式不正确""") end if%>>
  401.   </td>
  402.     </tr>
  403.      <tr  class="hback"> 
  404.       <td align="right">收货人联系电话</td>
  405.       <td>
  406. <input type="text" name="frm_Tel" size="50"  maxlength="20" value="<%=Tel%>" <%if request.querystring("act")<>"Search" then response.Write("datatype=""Require"" msg=""收货人联系电话必须填写""") end if%>>
  407.   </td>
  408.     </tr>
  409.      <tr  class="hback"> 
  410.       <td align="right">收货地址</td>
  411.       <td>
  412. <input type="text" name="frm_Address" size="50"  maxlength="100" value="<%=Address%>" <%if request.querystring("act")<>"Search" then response.Write("datatype=""Require"" msg=""收货人地址必须填写""") end if%>>
  413.   </td>
  414.     </tr>
  415.      <tr  class="hback"> 
  416.       <td align="right">邮政编码</td>
  417.       <td>
  418. <input type="text" name="frm_PostCode" size="50"  maxlength="6" value="<%=PostCode%>" <%if request.querystring("act")<>"Search" then response.Write("datatype=""Zip"" msg=""邮政编码格式不正确""") end if%>>
  419.   </td>
  420.     </tr>
  421.     <tr  class="hback"> 
  422.       <td align="right">处理状态</td>
  423.       <td>
  424. <%if Bol_IsEdit then 
  425. response.Write(Replacestr(State,"1:已处理,else:<span class=tx>未处理</span>"))
  426. elseif request.QueryString("Act")="Search" then%>
  427. <select name="frm_State">
  428.  <%=PrintOption(State,":请选择,1:已处理,0:未处理")%>
  429. </select>
  430. <%end if%>
  431.   </td>
  432.     </tr>
  433.     <tr  class="hback"> 
  434.       <td align="right">处理人</td>
  435.       <td>   
  436. <%if Bol_IsEdit then 
  437. response.Write(FS_MS_WithDraw_Rs("Dealer"))
  438. elseif request.QueryString("Act")="Search" then%>
  439. <input type="text" name="frm_Dealer" size="50">
  440. <%end if%>
  441.   </td>
  442.     </tr>
  443.      <tr  class="hback"> 
  444.       <td align="right">处理时间</td>
  445.       <td>
  446. <%if Bol_IsEdit then 
  447. response.Write(FS_MS_WithDraw_Rs("DealTime"))
  448. elseif request.QueryString("Act")="Search" then%>
  449. <input type="text" name="frm_DealTime" size="50">
  450. <%end if%>
  451.   </td>
  452.     </tr>
  453.    <tr  class="hback"> 
  454.       <td align="right">处理意见反馈</td>
  455.       <td>
  456. <%if Bol_IsEdit then 
  457. response.Write(FS_MS_WithDraw_Rs("ReturnInfo"))
  458. elseif request.QueryString("Act")="Search" then%>
  459. <textarea name="frm_ReturnInfo" cols="50" rows="10"></textarea>
  460. <%end if%>
  461.   </td>
  462.     </tr>
  463.     <tr  class="hback"> 
  464.       <td colspan="4">
  465.   <table border="0" width="100%" cellpadding="0" cellspacing="0">
  466.           <tr> 
  467.             <td align="center"> <input type="submit" value=" <%if request.QueryString("Act")="Search" then response.Write("查询") else response.Write("保存") end if%> " <%if Bol_IsEdit then response.Write(Replacestr(State,"1:disabled title=""已经处理后的退货您不能编辑"",else:")) end if%> /> 
  468.               &nbsp; <input type="reset" value=" 重置 " />
  469.      &nbsp; <input type="button" value=" 删除 " <%if request.QueryString("Act")<>"Edit" then response.Write("disabled") end if%> onClick="if(confirm('确定删除该项目吗？')) location='<%=server.URLEncode("WithDraw_Apply.asp?Act=Del&ID="&ID)%>'">
  470.             </td>
  471.           </tr>
  472.         </table>
  473.       </td>
  474.     </tr>
  475.   </form>
  476. </table>
  477. <%End Sub%>
  478.        </td>
  479.     </tr>
  480.     <tr class="back"> 
  481.       <td height="20" colspan="2" class="xingmu"> <div align="left"> 
  482.           <!--#include file="../Copyright.asp" -->
  483.         </div></td>
  484.     </tr>
  485.  
  486. </table>
  487. </body>
  488. <%
  489. Set FS_MS_WithDraw_Rs=nothing
  490. Set Fs_User = Nothing
  491. %>
  492. <script language="JavaScript">
  493. <!--//判断后将排序完善.字段名后面显示指示
  494. var Req_FildName;
  495. var New_FildName='';
  496. if (Old_Sql.indexOf("Add_Sql=order by ")>-1)
  497. {
  498. if(Old_Sql.indexOf(" desc")>-1)
  499. Req_FildName = Old_Sql.substring(Old_Sql.indexOf("Add_Sql=order by ") + "Add_Sql=order by ".length , Old_Sql.indexOf(" desc"));
  500. else
  501. Req_FildName = Old_Sql.substring(Old_Sql.indexOf("Add_Sql=order by ") + "Add_Sql=order by ".length , Old_Sql.length);
  503. if (document.getElementById('Show_Oder_'+Req_FildName)!=null)  
  504. {
  505. if(Old_Sql.indexOf(Req_FildName + " desc")>-1)
  506. {
  507. eval('Show_Oder_'+Req_FildName).innerText = '↓';
  508. }
  509. else
  510. {
  511. eval('Show_Oder_'+Req_FildName).innerText = '↑';
  512. }
  513. }
  514. }
  515. -->
  516. </script>
  517. </html>
  518. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->