buy.asp

台讯企业精美版.适合企事业单位用.方便易学.不会做网站也能建网站.

<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037　Emial：[e-mail]）
' 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()
    %>