<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<%
'***********************************************************************************
' 產品名稱：臺訊企業全站管理系統（V2006簡體中文版）
' 程序開發：HECHENn（QQ：34103037　Emial：hechenn@126.com）
' Copyright 2006 txcodes.com - All Rights Reserved. 
'***********************************************************************************

IF online_sbuy=0 THEN
    IF Loginuser_GroudId=0 THEN
        error_title="對不起，請先<FONT COLOR=ff0000>登陸</FONT>，如果您不是我們的會員，請先<FONT COLOR=ff0000>注冊</FONT>！"
    Else
        error_title="對不起，您沒有此項操作權限，請與管理員聯系！"
    End IF
    Call Page_check(3,0)
End IF
IF Action="buysave" THEN
    if trim(request.form("B_Name"))="" THEN
        Errorst="對不起，請問您怎么稱呼？"
        founderr=True
    ElseIF trim(request.form("B_Tel"))="" And trim(request.form("B_Email"))="" THEN
        Errorst="對不起，請下您的聯系方式？"
        founderr=True
    ElseIF IsValidEmail(trim(request.form("B_Email")))=False And trim(request.form("B_Email"))<>"" THEN
        Errorst="對不起，請輸入正確的電子郵件地址！"
        founderr=True
    ElseIF not isnumeric(request.form("B_Count")) THEN
        Errorst="錯誤的參數（訂購數量請輸入數字）！"
        founderr=True
    ElseIF not isnumeric(request.form("B_Money")) THEN
        Errorst="錯誤的參數（預算價格請輸入數字）！"
        founderr=True
    ElseIF len(trim(request.form("B_Content")))>200 THEN
        Errorst="對不起，留言內容不能超過200個字！"
        founderr=True
    End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
        Set Rs_c=server.Createobject("Adodb.Recordset")
        Sql="Select * from Tx_Buy"
        Rs_c.open Sql,Conn,1,3
		Rs_c.AddNew
            Rs_c("Buy_Products")=Id
            Rs_c("Buy_Count")=request.form("B_Count")
            Rs_c("Buy_allMoney")=request.form("B_Money")
            Rs_c("Buy_UserId")=Loginuser_Id
            Rs_c("Buy_AddName")=checkfSQLStr(trim(request.form("B_Name")))
            Rs_c("Buy_AddLtd")=checkfSQLStr(trim(request.form("B_Ltd")))
            Rs_c("Buy_AddTel")=checkfSQLStr(trim(request.form("B_Tel")))
            Rs_c("Buy_AddEmail")=checkfSQLStr(trim(request.form("B_Email")))
            Rs_c("Buy_AddContent")=nohtml(checkfSQLStr(request.form("B_Content")))
            Rs_c("Buy_Date")=Now()
            Rs_c("Buy_AddIp")=VisitorsIp
            Rs_c("Buy_AddRess")=VisitorsRess
        Rs_c.UpDate
        Rs_c.Close
        Set Rs_c=Nothing
		ToHistory="javascript:window.close()"
		saveok="提交成功，我們會盡快回復，感謝您的支持！"
	    Call Form_Saveok()
    End IF
End IF
    Set Rs=server.Createobject("Adodb.Recordset")
    Sql="Select * from Tx_Products where Products_Id=" & Id
    Rs.open Sql,Conn,1,1
        IF Rs.RecordCount=0 or Id="" THEN 
		    Errorst="無此產品！"
		    Call Form_Error()
		End IF
        Page_Name="詢問產品價格 -- " & Rs("Products_Name") & " -- " & Web_Const(0)
        Call Page_Head()
        %>
        <DIV CLASS="t_talbe2">
        <DIV CLASS="t_talbeall">
        <DIV CLASS="t_talbe1">
            <Form NAME=buy method=post action="Buy.asp?Action=buysave&Id=<%=Id%>" >
            <DIV CLASS="buy_talbe3">
            產品名稱： <B><%=Rs("Products_Name")%></B>（編號：<SPAN CLASS="TYPE-color2"><%=Rs("Products_Code")%></SPAN>）<br>
            訂購數量： <INPUT NAME="B_Count" TYPE="text" CLASS="INPUTimage1" id="B_Count" SIZE="15" maxlength="10" onkeypress="event.returnValue=IsDigit();">　　　預算價格： <B>￥</B> <INPUT NAME="B_Money" TYPE="text" CLASS="INPUTimage1" id="B_Money" SIZE="10" maxlength="20" onkeypress="event.returnValue=IsDigit();"> <SPAN CLASS="TYPE-color2">元</SPAN><br>
            姓　　名： <INPUT NAME="B_Name" TYPE="text" CLASS="INPUTimage1" id="B_Name" VALUE="<%=Loginuser_C(6)%>" SIZE="15" maxlength="25">　　　單位名稱： <INPUT NAME="B_Ltd" TYPE="text" VALUE="<%=Loginuser_C(3)%>" CLASS="INPUTimage1" id="B_Ltd" SIZE="15" maxlength="50"><br>
            聯系電話： <INPUT NAME="B_Tel" TYPE="text" VALUE="<%=Loginuser_C(4)%>" CLASS="INPUTimage1" id="B_Tel" SIZE="15" maxlength="15">　　　電子郵件： <INPUT NAME="B_Email" TYPE="text" VALUE="<%=Loginuser_C(2)%>" CLASS="INPUTimage1" id="B_Email" SIZE="15" maxlength="50"><br>
            簡短附言： <TEXTAREA  NAME="B_Content" CLASS="textareaimage" cols="40" rows="5" id="B_Content"></TEXTAREA> HTML禁用<br><br>
            <DIV CLASS="table-tstd"><INPUT TYPE="image" src="Skins/Blue/go.gif" NAME="Ok" ALIGN="absmiddle"> <INPUT TYPE="image" src="Skins/Blue/cl.gif"  NAME="Ok" ALIGN="absmiddle" onClick="vbscript:location.reload"></DIV>
            </DIV>
            </Form>
        </DIV>
        </DIV>
        </DIV>
    <%
    Call Page_Bottom()
    Rs.Close
    Set Rs=Nothing
    Call CloseConn()
    %>