savereplay.asp

WEB客户管理系统+小型OA系统。一个不错的程序

<%@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)
%>