?? aa_buy.asp
字號(hào):
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 產(chǎn)品名稱：臺(tái)訊企業(yè)全站管理系統(tǒng)（V2006簡(jiǎn)體中文版）
' 程序開發(fā)：HECHENn（QQ：34103037 Emial：hechenn@126.com）
' Copyright 2006 txcodes.com - All Rights Reserved.
'***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<%
Call Page_AdminFlag(34)
Page_HeadName="<A HREF=Aa_Buy.asp?Action=Manage>詢價(jià)管理</A> | <A HREF=Aa_Shop.asp?Action=Manage>訂單查詢</A>"
Call Page_formBody()
Call Page_Spane(5)
Dim UserName,Buy_Products,UserGroup
Selectkey=replace(Request.form("Selectkey"),"'","")
sAction=Request("sAction")
Select Case Action
Case "Manage"
Page_BootmName="詢價(jià)管理"
Page_BootName="您現(xiàn)在的位置：<A HREF=A_Right.asp>管理首頁(yè)</A> >> " & Page_BootmName
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Select Case xSelect
Case ""
Sql="Select * from Tx_Buy order by Buy_Date desc"
Case "BuyProducts"
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Products where Products_Name like '%" & Selectkey & "%'"
Rs.open Sql,Conn,1,1
While Not Rs.Eof
Products_Id=Rs("Products_Id") & "," & Products_Id
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
Sql="Select * from Tx_Buy where Buy_Products in (" & Products_Id & ") order by Buy_Date desc"
Case "BuyAdd"
Sql="Select * from Tx_Buy where Buy_AddName='" & Selectkey & "' order by Buy_Date desc"
End Select
Rs_Manage.open Sql,Conn,1,1
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"
Rs_Manage.PageSize = 15
totalrec=Rs_Manage.RecordCount
iPageSize=Rs_Manage.PageSize
currentPage=Request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN
Response.Redirect "javascript:history.go(-1);"
End IF
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof and page_count<Cint(iPageSize)
page_count=page_count+1
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_User where User_Id=" & Rs_Manage("Buy_UserId")
Rs.open Sql,Conn,1,1
IF Rs.RecordCount<>0 THEN
UserName=Rs("User_Name")
Set Rs_c=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Groud where Groud_Id=" & Rs("User_Group")
Rs_c.open Sql,Conn,1,1
UserGroup=Rs_c("Groud_Name")
Rs_c.Close
Set Rs_c=Nothing
Else
UserGroup="未注冊(cè)用戶"
UserName=""
End IF
Rs.Close
Set Rs=Nothing
Set Rs_c=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Products where Products_Id=" & Rs_Manage("Buy_Products")
Rs_c.open Sql,Conn,1,1
IF Rs_c.RecordCount<>0 THEN
Buy_Products=Rs_c("Products_Name")
End IF
Rs_c.Close
Set Rs_c=Nothing
strIfa = strIfa & "<Form NAME=inbox method=post action='Aa_Buy.asp?Action=Delall'><TR CLASS=Table8><TD CLASS=Table8><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=10><TR><TD WIDTH=75% valign=top><a NAME='" & Rs_Manage("Buy_Id") & "'>用 戶 名：" & UserGroup & " -- " & UserName & "<br>詢 問 人：<B>" & Rs_Manage("Buy_AddName") & "</B><br></A>產(chǎn)品名稱：<B>" & Buy_Products & "</B><br>訂購(gòu)數(shù)量：" & Rs_Manage("Buy_Count") & "<br>預(yù)算價(jià)格：<B>￥</B> <FONT COLOR=b50000>" & Rs_Manage("Buy_allMoney") & "</FONT> 元<br>簡(jiǎn)短附言：" & Rs_Manage("Buy_AddContent") & "</TD><TD WIDTH=1 CLASS=Table6></TD><TD valign=top>聯(lián)系電話：" & Rs_Manage("Buy_AddTel") & "<br>電子郵件：" & Rs_Manage("Buy_AddEmail") & "<br>詢問時(shí)間：" & Rs_Manage("Buy_Date") & "<br>I P 地址：" & Rs_Manage("Buy_AddIp") & "<br>來自地區(qū)：" & Rs_Manage("Buy_AddRess") & "</TD></TR></TABLE></TD></TR>"
IF sAction="Edit" THEN
IF Rs_Manage("Buy_Id")=int(Id) THEN
strIfa = strIfa & "<TR><TD CLASS=Table8><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=10><TR><TD><FONT COLOR=b50000><TEXTAREA NAME=Buy_AdminContent cols=60 rows=10 id=Buy_AdminContent>"
IF Rs_Manage("Buy_AdminContent")<>"" THEN
strIfa = strIfa & Rs_Manage("Buy_AdminContent")
Else
strIfa = strIfa & replace(replace(replace(Web_Const(69),"{Buy_Date}",Rs_Manage("Buy_Date")),"{Add_Name}",Rs_Manage("Buy_AddName")),"{Products_Name}",Buy_Products)
End IF
strIfa = strIfa & "</TEXTAREA><INPUT TYPE=checkbox NAME=ToEmail VALUE='1' CLASS='radio_all' "
IF Rs_Manage("Buy_AddEmail")="" or Web_Const(61)=0 THEN
strIfa = strIfa & " disabled "
End IF
strIfa = strIfa & "> Email通知 <INPUT TYPE=checkbox NAME=ToMess VALUE='1' CLASS='radio_all' "
IF Rs_Manage("Buy_UserId")=0 THEN
strIfa = strIfa & " disabled "
End IF
strIfa = strIfa & "> 短信通知 <INPUT TYPE=submit CLASS='submit_all' NAME=Edit VALUE=' 回 復(fù) ' onClick=" & CHR(34) & "this.form.action='Aa_Buy.asp?Action=Edit&Id=" & Rs_Manage("Buy_Id") & "';this.form.submit()" & CHR(34) & "></FONT> HTML支持</TD></TR></TABLE></TD></TR>"
End IF
End IF
IF Rs_Manage("Buy_AdminContent")<>"" THEN
IF Rs_Manage("Buy_Id")<>int(Id) THEN
strIfa = strIfa & "<TR><TD CLASS=Table8><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=10><TR><TD><FONT COLOR=b50000>管理員" & Rs_Manage("Buy_AdminAdd") & "于" & Rs_Manage("Buy_AdminDate") & "回復(fù)：<br>" & Rs_Manage("Buy_AdminContent") & "</FONT></TD></TR></TABLE></TD></TR>"
End IF
End IF
strIfa = strIfa & "<TR><TD HEIGHT=25 ALIGN=right CLASS=Table9><A HREF=Aa_Buy.asp?Action=Manage&sAction=Edit&Id=" & Rs_Manage("Buy_Id") & "#" & Rs_Manage("Buy_Id") & "><FONT COLOR=ff0000><B>在線回復(fù)</B></FONT></A> | <A HREF=Aa_Buy.asp?Action=Del&Id=" & Rs_Manage("Buy_Id") & " onclick='{if(confirm(" & CHR(34) & "刪除后將無法恢復(fù)，您真的要?jiǎng)h除么？" & CHR(34) & ")){return true;}return false;}'>刪除</A> | <INPUT TYPE=checkbox NAME=Id VALUE=" & Rs_Manage("Buy_Id") & " CLASS='radio_all'> </TD></TR><TR><TD HEIGHT=1 CLASS=Table10></TD></TR>"
Rs_Manage.MoveNext
Wend
End IF
Rs_Manage.Close
set Rs_Manage=Nothing
strIfa = strIfa & "<TR><TD HEIGHT=30 colspan=6 ALIGN=center CLASS=Table9><INPUT TYPE=checkbox NAME=chkall CLASS='radio_all' VALUE=on onclick=CheckAll(this.form)> 選擇全部 <INPUT TYPE=submit NAME=Submit VALUE=' 刪除 ' CLASS='Submit_all' onclick='{if(confirm(" & CHR(34) & "刪除后將無法恢復(fù)，您真的要?jiǎng)h除么？" & CHR(34) & ")){return true;}return false;}'></TD></TR></form><TR><TD HEIGHT=25 colspan=6 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR><form NAME=Search method=post action='Aa_Buy.asp'><TR><TD HEIGHT=35 colspan=6 ALIGN=center CLASS=Table8>查詢：<INPUT NAME=Selectkey TYPE=text id=Selectkey> <select NAME=xSelect id=xSelect><OPTION VALUE='BuyProducts' selected>按產(chǎn)品名稱</OPTION><OPTION VALUE='BuyAdd'>詢問人</OPTION></select> <INPUT TYPE=submit NAME=SearchOk VALUE=' 查訊 ' CLASS='Submit_all'></TD></TR></form></TABLE>"
Call Page_aTable(0,1)
Case "Edit"
IF request.form("Buy_AdminContent")="" THEN
Errorst="請(qǐng)輸入回復(fù)內(nèi)容！"
founderr=True
End IF
IF founderr=true THEN
Call Form_Error()
Else
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Buy where Buy_Id=" & Id
Rs.Open Sql,Conn,1,3
Rs("Buy_AdminContent")=request.form("Buy_AdminContent")
Rs("Buy_AdminDate")=Now()
Rs("Buy_AdminAdd")=session("Loginadmin")
Rs.UpDate
Content_E=request.form("Buy_AdminContent")
Title_E=Rs("Buy_AddName") & "您好，產(chǎn)品詢價(jià)回復(fù)！"
Set Rs_c=server.createobject("adodb.recordset")
Sql="Select * From Tx_User Where User_Id=" & Rs("Buy_UserId")
Rs_c.open Sql,Conn,1,1
IF Rs_c.RecordCount<>0 THEN
IF request.form("ToMess")=1 THEN
Call PageMessTo(session("Loginuser"),"" & Rs_c("User_Name") & "",1,"" & Title_E & "","" & Content_E & "")
End IF
End IF
Rs_c.Close
Set Rs_c=Nothing
IF Web_Const(61)=1 THEN
IF Rs("Buy_AddEmail")<>"" THEN
IF request.form("ToEmail")=1 THEN
SendEmail Rs("Buy_AddEmail"),"" & Title_E & "","" & Content_E & "",Web_Const(62)
End IF
End IF
End IF
Rs.Close
Set Rs=Nothing
ToHistory=VisitorsForm
saveok="已回復(fù)！"
Call Form_Saveok()
End IF
Case "Del"
Conn.execute "Delete From Tx_Buy Where Buy_Id=" & Id
ToHistory="Aa_Buy.asp?Action=Manage"
saveok="刪除成功！"
Call Form_Saveok()
Case "Delall"
IF request.form("Id")="" THEN
Errorst="請(qǐng)選擇要?jiǎng)h除的對(duì)象！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.Execute "Delete From Tx_Buy Where Buy_Id in (" & request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="刪除成功！"
Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -