savereplay.asp

来自「系统特点： 1、可自设网站栏目、文章分类； 2、提供用户注册、审核模块（」· ASP 代码 · 共 27 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<%
Rem Session("CRM_account") 用户帐号
Rem Session("CRM_name") 用户名
Rem Session("CRM_level") 用户等级

If Session("CRM_account") = "" Or Session("CRM_name") = "" Or Session("CRM_level") <= 0 Then Response.Redirect("login.asp")
%>


<%
typeid=request.QueryString("typeid")
set rs=server.CreateObject("adodb.recordset")
sql="select * from question"
rs.open sql,conn,1,3
rs.addnew
rs("username")=request.Form("username")
rs("info")="回答:<br>"&request.Form("info")
rs("addtime")=now()
rs("msgtype")="replay"
rs("typeid")=typeid
rs.update
rs.close

response.Redirect("q_list.asp?typeid="&typeid)
%>