updatetarok.asp

一套比较完整的内部技术支持全部源代码,请大家共同分享

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/tar.asp" -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_tar_STRING
rs.Source = "SELECT * FROM tar_history"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3

if request.form("content")<>"" then
	rs.Open()
	rs.addnew
	rs("TarID")=request.form("TarID")
	rs("pbtime")=now()
	rs("content")=request.form("content")
	rs("username")=session("username")
	rs.update
	rs.close
end if

rs.source="SELECT * FROM tar where ID=" & request.form("TarID")
rs.open
if request.form("content")<>"" then
	rs("update_time")=date()
end if
if request.form("action")="close" then
	rs("status")="软关闭"
else
	if session("issupport")=1 then
		rs("status")=request.form("status")
		if request.form("TL")<>"0" then
			rs("tar_level")=request.form("TL")
		end if
		rs("supporter")=request.form("supporter")
	else
		if isnumeric(mid(rs("status"),1,len(rs("status"))-2)) then
			rs("status")=(mid(rs("status"),1,len(rs("status"))-2)-1+2) & "回复"
		else
			rs("status")="1回复"
		end if
	end if
end if
rs.update
rs.close
%>
<%
response.redirect("tardetail.asp?id=" & request.form("TarID"))
%>