<% if not session("sel") then Response.redirect "userlogin.asp" end if %> <% us=session("us") sql="select * from user where userid='"&us&"'" rs.open sql,conn,1,1 %> <% rs.close if Trim(Request.QueryString("w"))="save" then if Trim(Request.Form("body"))="" then ms="对不起!!你的问题提交失败,请输入您的问题...." else ms="您的问题以经提交,我们会尽快回答您的问题..谢谢您的支持.." sql="insert into msm (userid,mail,body) values ('"&session("us")&"','"&Trim(Request.Form("email"))&"','"&Trim(Request.Form("body"))&"')" conn.execute(sql) end if end if %>
在线提交问题
你的email:  以便我们回复发送到您的邮箱里
您的问题:
 

<%= ms %>

<% rs.open "select * from msm where userid='"&us&"'",conn,1,1 while not rs.eof %> <% rs.movenext wend rs.close %>
您的问题: <%= rs("body") %>
回复:
<% if rs("bak")="" then Response.Write("我们会尽快回答您的提问") else Response.Write rs("bak") end if %>