?? buy.asp
字號:
<%@ 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()
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -