<%
dim message
message=""
vname=Request("name")
vemail=Request("email")
vtel=Request("tel")
vdetail=Request("detail")
if vname="" or vemail="" or vtel="" or vdetail="" then
message="留言簿没有填写完整"
else message="谢谢您的支持"
endif
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<% if vname="" or vemail="" or vtel="" or vdetail="" then %>
<SCRIPT language=JavaScript>
msg=" <%=message %>"
windows.alert(msg)
windows.location=""
</SCRIPT>
<%else%>
<%
sql="insert into guest values("
sql=sql&""&vname&""&","&""&vemail&""
sql=sql&","&""&vtel&""&","&""&vdetail&")"
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "guest"
Set Rs=Conn.Execute (sql)
%>
<P>&nbsp;</P>
</BODY>
</HTML>
