webse_deal.asp

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

<%@ Language=VBScript %>
<!--#include file= "../dbase.asp"-->
<%
response.write request.QueryString("FRID")
response.write request.QueryString("SEID")
'response.end
sql=" SELECT t_content "&_
	" FROM hxdf_menu_web_second "&_
	" WHERE n_PreID = "& request.QueryString("FRID")
sql=sql&	" and i_sort = "& request.QueryString("SEID")
dim rs
set rs=server.CreateObject("adodb.recordset")
on error resume next
rs.Open sql,conn,1,2
if rs.EOF then
rs.AddNew
end if
rs("t_content")=request.Form("content")
rs.Update
if err.number<>0 then
response.Write err.Description
response.End
else
response.Redirect("webSE_modify.asp?FRID="&request.QueryString("FRID")&"&SEID="&request.QueryString("SEID"))
end if
%>