当前位置 >> 信息反馈 | 信息反馈处理

<% if Request("ADD_Check")="" then id=clng(request.QueryString("id")) set rsbv=conn.execute("select * from Netsys_Message_Cn where ID="&id) if rsbv.eof then response.write "此记录不存在" response.end end if %> 公司名称： <%=rsbv("Subject")%> 姓名： <%=rsbv("Name")%> 地址： <%=rsbv("Address")%> 邮编： <%=rsbv("Code")%> 电话： <%=rsbv("Tel")%> 传真： <%=rsbv("Fax")%> 电子邮箱： <%=rsbv("email")%> 具体内容： <%=rsbv("message")%> 订单时间： <%=rsbv("DateTime")%> 处理意见： <%=rsbv("Tback")%> <% if rsbv("check")=1 then %> 处理时间：<%=rsbv("CheckTime")%> <% end if %>        "> <% rsbv.close set rsbv=nothing else Set Rs=Server.CreateObject("Adodb.RecordSet") Sql="Select * From Netsys_Message_Cn where ID="&Request("ID") Rs.Open Sql,Conn,1,3 Rs("check")=1 Rs("Tback")=Request("Tback") Rs("CheckTime")=now() Rs.Update Rs.close Set Rs=Nothing Response.Write "" end if %>