📄 cusinsert.asp

📁 一个购物网站
💻 ASP
字号:
<%
    total=Request.querystring("total")
    set con=server.createobject("Adodb.Connection")
	set rst=Server.createobject("ADODB.Recordset")
	con.open "Provider=SQLOLEDB;User ID=user37;Initial Catalog=project0104;Data Source=210.34.136.243"
    rst.open "select cCustomerID from Customer",con 
          while not rst.eof
             for i=0 to rst.fields.count-1
                getMessageID=rst.fields("cCustomerID")
                next
            rst.movenext
          wend
          MessageID=cInt(getMessageID)
          ItempCustID=MessageID+1
          VtempCustID=CStr(ItempCustID)
          VtempCustID1="0000"+VtempCustID
          kMessage=right(VtempCustID1,5)
        
   cMessageid = trim(request.form("Customerid"))
   vFname = trim(request.form("Fname"))
   vLname=trim(request.form("Lname"))
   vEmail=trim(request.form("Mail"))
   vAddress=trim(request.form("Address"))
   vPhone=trim(request.form("Phone"))
   vIdCard=trim(request.form("IdCard"))
   vCarCard=trim(request.form("CarCard"))

  

	
	if vFname="" then
	response.write""
	elseif vLname="" then
	response.write"Enter Last Name"
	elseif vEmail="" then
	response.write"Enter Email"
	elseif vaddress="" then
	response.write"Enter Address"
	elseif vPhone="" then
	response.write"Enter Phone"
	elseif vIdCard="" then
	response.write"Enter ID Card"
	elseif  vCarCard="" then
	pesponse.write"Enter Caredit Card"
	else    
    mysql="insert into Customer(cCustomerID,vFirstName,vLastName,vEmailID,vAddress,cPhone,cIdCard,cCreditCardNo) values ('"&cMessageid&"','"&vFname&"','"&vLname&"','"&vEamil&"','"&vAddress&"','"&vPhone&"','"&vIdCard&"','"&vCarCard&"')"	

	con.Execute mysql
	
	response.write "You can insert others."
end if
  
%>

<html>
 <head><title>Insert Data</title></head>
 <body bgcolor=#FFCC99>
 你的总额：<%=total%><br><br>
 <font color="#666666">请您填写您的详细资料，以便我们将货物准确送达！</font><br>
 <FORM METHOD=POST action="CusInsert.asp">
 <font color="#996633">客户信息:</font></strong><br><br>
 Customer ID:<input TYPE="text" name="Customerid" size=8 value=<%=Server.HTMLEncode(kMessage)%>><br>
 First Name:<INPUT TYPE="text" NAME="Fname" size=8>&nbsp;&nbsp<br>
 Last Name:&nbsp<input type="text" name="Lname" size=8><br>
 E-Mail:&nbsp;&nbsp<input type="text" name="Mail" size=8>&nbsp;&nbsp;&nbsp<br>
 Phone:&nbsp;&nbsp;&nbsp<input type="text" name="Phone" size=8><br>
 ID Card:<input type="text" name="IdCard" size=10>&nbsp;&nbsp;&nbsp<br>
 Credit Card:<input type="text" name="CarCard" size=10><br>
  
  Address:&nbsp;&nbsp<input type="text" name="Address" size=20>

  <p align=center><input type="submit" value="Submit">
                   <input type="reset" value="Reset"></p><br>
				    <font color="#666666"><a href="index.asp">HOME</a></font>
 </FORM>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -