selfcheck_deal.asp

北京华信东方网络办公系统

<%@ Language=VBScript %>
<!--#include file= "../dbase.asp"-->
<%
'v_title, t_content, v_department, v_OfferMan, c_ShowOfferMan, v_Kind, t_receive, d_OfferDate, t_Accessories
Way=request.QueryString("Way")
dim rs
set rs=server.CreateObject("adodb.recordset")
'
if Way="Delete" then
	'if request.QueryString("id")
elseif Way="Modify" then
	if request.QueryString("condition")<>"" then
	sql="SELECT * FROM hxdf_selfcheck_content WHERE n_ID = "& clng(request.QueryString("condition"))
	rs.Open sql,conn,1,3
	if not rs.EOF then%>
<!--#include file="selfcheck_fixdata.asp"-->	
<%	rs.Update
	end if
	end if
elseif Way="AddNew" then
	sql="SELECT * FROM hxdf_selfcheck_content"
'on error resume next
	rs.Open sql,conn,1,3
	rs.AddNew%>
<!--#include file="selfcheck_fixdata.asp"-->	
<%
	rs.Update
	response.Redirect("selfcheck_publish.asp")
else
response.Redirect("../error/Error.asp?steps=-1&errInfo=<li>请选择操作类型</li>")
response.End()
end if
if err.number<> 0 then
rs.CancelUpdate
response.Redirect("../error/Error.asp?steps=-1&errInfo=<li>"&err.Description&"</li>")
response.End()
end if
rs.Close: set rs=nothing
%>