数据库编程

开发平台：
ASP/ASPX

Order_Pay.asp：源码内容
							<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_Inc/Function.asp"-->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/NS_Function.asp" -->
<%'CopyRight (c) 2006 Fooun Inc. Code by Simpwind.Xie
Dim Conn,User_Conn,strShowErr
MF_Default_Conn
MF_User_Conn
'session判断
MF_Session_TF 
if not MF_Check_Pop_TF("ME_Order") then Err_Show 
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Function GetFriendName(f_strNumber)
	Dim RsGetFriendName
	Set RsGetFriendName = User_Conn.Execute("Select UserName From FS_ME_Users Where UserNumber = '"& f_strNumber &"'")
	If  Not RsGetFriendName.eof  Then 
		GetFriendName = RsGetFriendName("UserName")
	Else
		GetFriendName = 0
	End If 
	set RsGetFriendName = nothing
End Function 
if Request.Form("Action") = "Del" then
	if not MF_Check_Pop_TF("ME031") then Err_Show 
	User_Conn.execute("Delete From FS_ME_Order  where OrderId in ("& Request.Form("Id")&")")
	Call MF_Insert_oper_Log("删除在线支付定单","定单ID：("& Request.Form("Id")&")",now,session("admin_name"),"ME")
	set User_Conn=nothing
	set conn=nothing
	strShowErr = "<li>操作定单成功!</li>"
	Response.Redirect("../Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=User/Order_Pay.asp")
	Response.end
End if
if Request.QueryString("type_1")="success" then
	User_Conn.execute("Update FS_ME_Order set isSuccess=1,M_state=1,isLock=0 where OrderId ="& Request.QueryString("Id"))
	Call MF_Insert_oper_Log("更新在线定单为[已支付]","定单号：("& Request.QueryString("OrderNumber")&")",now,session("admin_name"),"ME")
	strShowErr = "<li>更新成功!</li>"
	set User_Conn=nothing
	set conn=nothing
	Response.Redirect("../Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=User/Order_Pay.asp")
	Response.end
end if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<title>定单-网站内容管理系统</title>
<meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
<meta name="Keywords" content="Foosun,FoosunCMS,Foosun Inc.,风讯,风讯网站内容管理系统,风讯系统,风讯新闻系统,风讯商城,风讯b2c,新闻系统,CMS,域名空间,asp,jsp,asp.net,SQL,SQL SERVER" />
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<head>
<body>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  <tr class="hback"> 
    <td class="hback"><a href="Order_Pay.asp">在线支付定单</a></td>
  </tr>
  <tr class="hback">
    <td class="hback"><a href="Order_Pay.asp">全部</a>┆<a href="Order_Pay.asp?success=1">成功定单</a>┆<a href="Order_Pay.asp?success=0">失败定单</a></td>
  </tr>
</table>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  <form name="form1" method="post" action="Order_Pay.asp">
    <tr class="hback"> 
      <td colspan="7" class="hback"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td width="44%"> <strong> 
              <%
				  dim strTmp,strLogType,strTmp1
				  strLogType = NoSqlHack(Trim(Request.QueryString("LogTye")))
			     if Request.QueryString("LogTye")<>"" then
			  		strTmp =  " and LogType='"& strLogType &"'"
			     Else
			  		strTmp =  " "
			    End if
				Dim RsOrderObj,RsOrderSQL
				Dim strpage,strSQLs,StrOrders,strmp_or
				strpage=request("page")
				if len(strpage)=0 Or strpage<1 or trim(strpage)=""  Then strpage="1"
				Set RsOrderObj = Server.CreateObject(G_FS_RS)
				if trim(Request("keyword"))<>"" then
					if request("type")="0" then
						strmp_or = " and OrderNumber Like '%"&trim(Request("keyword"))&"%'"
					else
						strmp_or = " and UserNumber Like '%"&trim(Request("keyword"))&"%'"
					end if
				else
					strmp_or=""
				end if
				RsOrderSQL = "Select * From FS_ME_Order  where  OrderType=3 "& strmp_or &" order by  OrderID desc"
				RsOrderObj.Open RsOrderSQL,User_Conn,1,1
				Response.Write RsOrderObj.recordcount
				%>
              </strong> 个定单</td>
            <td width="56%"><div align="left">
                <input name="keyword" type="text" id="keyword">
                <select name="type" id="type">
                  <option value="0" selected>定单号</option>
                  <option value="1">用户编号</option>
                </select>
                <input type="submit" name="Submit2" value="搜索">
              </div></td>
          </tr>
        </table></td>
    </tr class="hback">
    <tr class="hback"> 
      <td width="20%" class="xingmu"><div align="left"><strong> 定单号(点定单查看详情)</strong></div></td>
      <td width="10%" class="xingmu"><div align="center"><strong>审核状态</strong></div></td>
      <td width="16%" class="xingmu"><div align="center"><strong>用户名</strong></div></td>
      <td width="18%" class="xingmu"><div align="center"><strong>支付成功日期</strong></div></td>
      <td width="17%" class="xingmu"><div align="center"><strong>日期</strong></div></td>
      <td width="8%" class="xingmu"><div align="center"><strong>类型</strong></div></td>
      <td width="11%" class="xingmu"><div align="center"><strong>支付</strong></div></td>
    </tr>
    <%
		Dim select_count,select_pagecount,i
		if RsOrderObj.eof then
			   RsOrderObj.close
			   set RsOrderObj=nothing
			   set conn=nothing
			   set user_conn=nothing
			   Response.Write"<TR><TD colspan=""7""  class=""hback"">没有记录。</TD></TR>"
		else
				if Request("CountPage")="" or len(Request("CountPage"))<1 then
					RsOrderObj.pagesize = 20
				Else
					RsOrderObj.pagesize = Request("CountPage")
				End if
				RsOrderObj.absolutepage=cint(strpage)
				select_count=RsOrderObj.recordcount
				select_pagecount=RsOrderObj.pagecount
				for i=1 to RsOrderObj.pagesize
					if RsOrderObj.eof Then exit For 
		 %>
    <tr class="hback"> 
      <td class="hback"><div align="left"> 
          <% = RsOrderObj("OrderNumber")%>
        </div></td>
      <td class="hback"> <div align="center"> 
          <%
					if RsOrderObj("isLock")=1 then
						Response.Write"<span class=tx>审核中...<span>"
					Else
						Response.Write"已审核..."
					End if
					%>
        </div></td>
      <td class="hback"><div align="center"> 
          <a href="../../<%=G_USER_DIR%>/ShowUser.asp?UserNumber=<% = RsOrderObj("UserNumber")%>" target="_blank"><% = GetFriendName(RsOrderObj("UserNumber"))%></a>
        </div></td>
      <td class="hback"><div align="center"> 
          <% = RsOrderObj("M_PayDate")%>
        </div></td>
      <td class="hback"> <div align="center"> 
          <% = RsOrderObj("AddTime")%>
        </div></td>
      <td class="hback"><div align="center"> 
          <%
			if RsOrderObj("OrderType")=0 then
				Response.Write("会员组")
			Elseif RsOrderObj("OrderType")=1 then
				Response.Write("商品")
			Elseif RsOrderObj("OrderType")=2 then
				Response.Write("点卡")
			Elseif RsOrderObj("OrderType")=3 then
				Response.Write("在线支付")
			Else
				Response.Write("其他")
			End if
			%>
        </div></td>
      <td class="hback"> <div align="center"> 
          <%
		  if RsOrderObj("IsSuccess")=0 then
		  	if RsOrderObj("M_state")=0 then
		  %>
          <a href="Order_Pay.asp?type_1=success&id=<%=RsOrderObj("OrderID")%>&OrderNumber=<% = RsOrderObj("OrderNumber")%>" title="更新为成功支付定单" onClick="{if(confirm('是否更新为[[支付成功]]吗？')){return true;}return false;}">失败</a> 
          <%
		  	else
				response.Write "已处理" 
			end if
		  Else%>
          <span class="tx">成功</span> 
          <%End if%>
          <input name="id" type="checkbox" id="id" value="<%=RsOrderObj("OrderID")%>">
        </div></td>
    </tr>
    <%
			  RsOrderObj.MoveNext
		  Next
		  %>
    <tr class="hback"> 
      <td colspan="7" class="hback"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr class="hback"> 
            <td width="40%">
              <% 	Response.Write("每页:"& RsOrderObj.pagesize &"个,")
							Response.write"&nbsp;共<b>"& select_pagecount &"</b>页<b>&nbsp;" & select_count &"</b>条记录，本页是第<b>"& strpage &"</b>页。"
							if int(strpage)>1 then
								Response.Write"&nbsp;<a href=?page=1&keyword="&Request("keyword")&"&type="&request("type")&">第一页</a>&nbsp;&nbsp;"
								Response.Write"&nbsp;<a href=?page="&cstr(cint(strpage)-1)&"&keyword="&Request("keyword")&"&type="&request("type")&">上一页</a>&nbsp;&nbsp;"
							End if
							If int(strpage)<select_pagecount then
								Response.Write"&nbsp;<a href=?page="&cstr(cint(strpage)+1)&"&keyword="&Request("keyword")&"&type="&request("type")&">下一页</a>&nbsp;"
								Response.Write"&nbsp;<a href=?page="& select_pagecount &"&keyword="&Request("keyword")&"&type="&request("type")&">最后一页</a>&nbsp;&nbsp;"
							End if
								Response.Write"<br>"
								RsOrderObj.close
								Set RsOrderObj=nothing
				%>
             </td>
            <td width="40%" class="hback">
              <input type="checkbox" name="chkall" value="checkbox" onClick="CheckAll(this.form)">
              选中所有定单
              <input name="Action" type="hidden" id="Action" value="">
              <input type="button" name="Submit" value="删除选中的定单"  onClick="document.form1.Action.value='Del';{if(confirm('确定清除您所选择的记录吗？')){this.document.form1.submit();return true;}return false;}">
				</td>
          </tr>
        </table></td>
    </tr>
	<%End if%>
  </form>
</table>
</body>
</html>
<script language="JavaScript" type="text/JavaScript">
function CheckAll(form)  
  {  
  for (var i=0;i<form1.elements.length;i++)  
    {  
    var e = form1.elements[i];  
    if (e.name != 'chkall')  
       e.checked = form1.chkall.checked;  
    }  
  }
</script>
<!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->

						