<% Public Function BornVerifyCode() Randomize '设置随机因子 BornVerifyCode=Mid((Rnd * 1000000), 1, 4) '生成6位随机数，取高4位 End Function '''''''''''页面开始 Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"
" Response.Write"
" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"
留言填写
" Response.Write"" Response.Write"
" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"
" Response.Write"

　联 系 人

" Response.Write"

　联系方式

" Response.Write"

" Response.Write"

　内容标题

" Response.Write"

" Response.Write"

　留言内容

" Response.Write"

" Response.Write"

　验证码

" Response.Write"

" %>   <% if BornVerifyCode = "" then BornVerifyCode = "9999" end if Session("code") = cstr(BornVerifyCode) '将字符结果保存在Seesion中 'Response.Write BornVerifyCode&"
" '显示出验证字符 response.write session("code") %><%Response.write"

" Response.Write"

  头 像

" Response.Write"

" for i=1 to 5 Response.Write"" Response.Write" " next Response.Write"
" for i=6 to 10 Response.Write"" Response.Write" " next Response.Write"

" Response.Write"
" Response.Write"
" Response.Write"
" Response.Write"
" %>