<% If request.QueryString("action")="add" then ucode = Trim(request.form("ucode")) If ucode <> Trim(Session("Code")) then Call Msg("请输入正确的验证码!",1) End if t1 = Replace_Text(request.form("t1")) t2 = Replace_Text(request.form("t2")) t3 = Replace_Text(request.form("t3")) t4 = Replace_Text(request.form("t4")) t8 = Replace_Text(request.form("t8")) ip = GetIP if t1="" or t2="" or t3="" or t4="" or t8="" then Call Msg("必填内容不能为空!",1) end if if ip="" then Call Msg("非法提交!",1) end if SQL = "Select * from bbs order by id" Call Rs_Open(Rs,SQL,Conn,3,2) Rs.Addnew Rs("t1") = t1 Rs("t2") = t2 Rs("t3") = t3 Rs("t4") = t4 Rs("t8") = t8 Rs("ip") = ip Rs.update Call Rs_end(Rs) Call Msg ("咨询成功,我们会尽快回复您!$$guestbook.asp",4) Else %>

在线咨询

上海零距离 > 在线咨询


注:以下只显示我们给予回复的咨询,我们会对您提交的资料保密!以下回复只代表上海零距离的观点,如有错误,还请不吝赐教!  我们将在24小时内给您解答!

立即咨询


<% SQL = "Select * from bbs where huifu <> ''order by id desc" Call Rs_Open(Rs,SQL,Conn,1,1) If Rs.eof or Rs.bof then response.write "暂无新闻!" Else Call page_code(5) For i = 1 to rs.pagesize if Rs.eof then exit for %>
<%=rs("id")%> <%=rs("t3")%> 留言时间:<%=rs("adddate")%>

主题: <%=rs("t1")%>
内容: <%=rs("t8")%>
 
零距离回复:
<%=rs("huifu")%>
<% Rs.movenext next End if %>
<% Call Splitpage(Rs.Recordcount,Rs.Pagesize,6,1) %>
*主 题:
*内 容:
*公司名称:
*联系人:
*联系电话:
验证码:  
 
<% end if %>