<!-- #include file="Inc/Inc.asp" -->
<!-- #include file="Inc/Function.asp" -->
<%
call ling()
call head
conn.close
set conn=nothing
Dim ss
randomize timer
ss=Int((9999)*Rnd +1000)
Call saycarda("发表留言")

'-------A登录信息
if myid=0 then
Response.write "如果您是会员，建议您<a href='login.asp?'>登陆</a>登陆后再留言<br/>如果有急事请加密留言并留下联系方式，会有专人和你联系的！谢谢支持！<br/>----------<br/>"& chr(13)
else

end if
'---------------------------
if saytk<>1 then
Response.write "<form name=""form"" method=""post"" action=""guestsave.asp?sid="&sid&"&amp;saytk="&saytk&""">"
end if
if myid=0 then 
response.write"昵称<br/>"

response.write"<input name=""name"" type=""text"" format=""*M"" emptyok=""true"" maxlength=""10""/><br/>"
end if
response.write"标题<br/>"
response.write"<input name=""title"" type=""text"" format=""*M"" emptyok=""true"" maxlength=""20""/><br/>"
response.write"内容(支持UBB)：<br/>"
response.write"<input name=""text"" type=""text"" format=""*M"" emptyok=""true"" maxlength=""500""/><br/>"
response.write"联系方式(不公开)：<br/>"
response.write"<input name=""lianxi"" type=""text"" format=""*M"" emptyok=""true"" maxlength=""50""/><br/>"

response.write"验证码："&ss&"<br/>"
response.write"<input name=""num"" type=""text"" format=""*M"" emptyok=""true"" maxlength=""50""/><br/>"
if saytk<>1 then
response.write "<input type=""hidden"" name=""num1"" value="""&ss&"""/>"
response.write "<input type=""submit"" name=""Submit"" value=""提交留言""></form><br/>"
else
response.write"<anchor>[提交留言]"
response.write"<go href=""guestsave.asp?sid="&sid&"&amp;saytk="&saytk&""" method=""post"" accept-charset=""utf-8"">"
response.write"<postfield name=""name"" value=""$(name)""/>"
response.write"<postfield name=""title"" value=""$(title)""/>"
response.write"<postfield name=""text"" value=""$(text)""/>"
response.write"<postfield name=""lianxi"" value=""$(lianxi)""/>"
response.write"<postfield name=""open"" value=""$(open)""/>"
response.write"<postfield name=""num"" value=""$(num)""/>"
response.write"<postfield name=""num1"" value="""&ss&"""/>"
response.write"</go></anchor><br/>"
end if
response.write"----------<br/>"
response.write"<a href=""guestbook.asp?sid="&sid&"&amp;saytk="&saytk&""">留言首页</a><br/>"
response.write"<a href=""index.asp?sid="&sid&"&amp;saytk="&saytk&""">返回首页</a><br/>"
call head3()
%>