📄 aa_buy.asp
字号:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：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>询价管理</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="询价管理"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</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="未注册用户"
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>产品名称：<B>" & Buy_Products & "</B><br>订购数量：" & Rs_Manage("Buy_Count") & "<br>预算价格：<B>￥</B> <FONT COLOR=b50000>" & Rs_Manage("Buy_allMoney") & "</FONT> 元<br>简短附言：" & Rs_Manage("Buy_AddContent") & "</TD><TD WIDTH=1 CLASS=Table6></TD><TD valign=top>联系电话：" & Rs_Manage("Buy_AddTel") & "<br>电子邮件：" & Rs_Manage("Buy_AddEmail") & "<br>询问时间：" & Rs_Manage("Buy_Date") & "<br>I P 地址：" & Rs_Manage("Buy_AddIp") & "<br>来自地区：" & 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=' 回 复 ' 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") & "回复：<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>在线回复</B></FONT></A> | <A HREF=Aa_Buy.asp?Action=Del&Id=" & Rs_Manage("Buy_Id") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & 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) & "删除后将无法恢复，您真的要删除么？" & 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>按产品名称</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="请输入回复内容！"
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") & "您好，产品询价回复！"
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="已回复！"
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="请选择要删除的对象！"
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()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -