guest_sub.asp

非常有商业价值的软件

<%
action=my_request("action",0)
if action="message" then
call message()
else
response.write "<form action=guestbook.asp method=post>"
response.write "<table border=1 width=771 id=table1 cellspacing=1 style='border-collapse: collapse' bordercolor=#ACA793 class=12px>"
response.write "<tr>"
response.write "<td>"
response.write "<div align=center>"
response.write "<table border=0 width=600 id=table2 cellpadding=2>"
response.write "<tr>"
response.write "<td colspan=3>"
response.write "<p align=center class=14px>用户留言</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=200 align=right>留言类别：</td>"
response.write "<td width=65% colspan=2><select size=1 name=flag>"
response.write "<option selected>请选择类别</option>"
response.write "<option value=1>订单问题</option>"
response.write "<option value=2>服务问题</option>"
response.write "<option value=3>技术问题</option>"
response.write "<option value=4>其他问题</option>"
response.write "</select><font color=#FF0000>&nbsp;*</font></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=200 align=right>简单标题（关键字）：</td>"
response.write "<td width=65% colspan=2>"
response.write "<input type=text name=title size=25><font color=#FF0000>"
response.write "&nbsp;*</font></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=200 align=right>电子邮件地址：</td>"
response.write "<td width=65% colspan=2>"
response.write "<input type=text name=email size=25><font color=#FF0000>" 
response.write "&nbsp;*</font><input type=hidden name=action value=message></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=200 align=right>联系电话：</td>"
response.write "<td width=65% colspan=2>"
response.write "<input type=text name=phone size=25><font color=#FF0000>" 
response.write "&nbsp;*</font></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=200 align=right>留言内容：</td>"
response.write "<td width=200><textarea rows=7 name=content cols=31></textarea></td>"
response.write "<td valign=top><font color=#FF0000>&nbsp;*</font><br>"
response.write "友情提示：如是订单问题，请写下您的订单编号，谢谢支持！</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td colspan=3>"
response.write "<p align=center>"
response.write "<input type=submit value=确认递交 name=B1>&nbsp;"
response.write "<input type=reset value=重写 name=B2></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</form>"
end if

sub message()
flag=my_request("flag",1)
title=my_request("title",0)
email=my_request("email",0)
phone=my_request("phone",0)
content=my_request("content",0)
userid=session("chk_id")
ip=Request.ServerVariables("REMOTE_ADDR")
addtime=now()
if flag="" or title="" or email="" or content="" then
response.write"<SCRIPT language=JavaScript>alert('信息不完整！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
if userid="" then
c_id="zw"
else
c_id=userid
end if
sql="insert into message_yqj (userid,title,flag,email,phone,content,addtime,ip) values ('"&c_id&"','"&title&"',"&flag&",'"&email&"','"&phone&"','"&content&"','"&addtime&"','"&ip&"')"
conn.execute (sql)
response.write "<meta HTTP-EQUIV=REFRESH CONTENT=""5; URL=index.asp"">"
response.write "<br>"
response.write "<br>"
response.write "<br>"
response.write "<a href=index.asp class=12px>·留言成功！五秒钟返回首页，如果不想等待，请点击这里</a>"
response.write "<br>"
end sub
%>