message1.asp

一个购物网站

	 <%
    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 cMessageID from Message",con 
          while not rst.eof
             for i=0 to rst.fields.count-1
                getMessageID=rst.fields("cMessageID")
                next
            rst.movenext
          wend
          MessageID=cInt(getMessageID)
          ItempCustID=MessageID+1
          VtempCustID=CStr(ItempCustID)
          VtempCustID1="0000"+VtempCustID
          kMessage=right(VtempCustID1,5)

     cLoginid = trim(request.form("Loginid"))
     vMessageNote = trim(request.form("Note"))
    if cLoginid<>"" and vMessageNote<>""then	
	
    mysql="insert into Message(cMLoginID,vMessageNote) values ('"&cMessageid&"','"&cLoginid&"','"&vMessageNote&"')"	
	con.Execute mysql
	response.write "Congratulation.<font color=#FF0000>"&vMessageLoginid&"</font> details inserted.<br>"
	response.write "You can insert others."
   end if

 
         
   

%>