📄 message.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)
cMessageid = trim(request.form("Message"))
vEmail = trim(request.form("Email"))
vMessageNote = trim(request.form("Note"))
dDate= trim(request.form("Date"))
if vMessageNote<>"" and vEmail <>"" then
mysql="insert into Message(cMessageID,vCEmailID,vMessageNote,dMessageDate) values ('"&cMessageid&"','"&vEmail&"','"&vMessageNote&"','"&dDate&"')"
con.Execute mysql
response.write "Congratulation.<font color=#FF0000>"&vMessageLoginid&"</font> details inserted.<br>"
response.write "You can insert others."
end if
%>
<html>
<head><title>Insert Data</title></head>
<body bgcolor=#FFCC99>
<FORM METHOD=POST action="Message.asp">
Message ID:<input TYPE="text" name="Message" size=8 value=<%=Server.HTMLEncode(kMessage)%>><br>
E-mail: <INPUT TYPE="text" NAME="Email" size=8><br>
Message note:<br><TEXTAREA NAME="Note" ROWS="5" COLS="20"></TEXTAREA><br>
Todate is:<input type="text" name="Date" value=<%=date%> size=8>
<p align=center><input type="submit" value="submit">
<input type="reset" value="reset"></p><br>
</FORM>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -