bAction=Request.QueryString("action")
bID=Request.QueryString("id")
bNewsTitle=Request.Form("NewsTitle")
bNewsType=Request.Form("NewsType")
bNewsContent=Request.Form("NewsContent")
sSessUserName=SESSION("SessUserName")
dBookInDate=date() & " " & time()
blCntnChk=true
cSeperatorTemp=","
if bNewsTitle="" then
blCntnChk=false
end if
if bNewsType="" then
blCntnChk=false
end if
if bNewsContent="" then
blCntnChk=false
end if
if not blCntnChk then
sScript=GenerateScriptAlert("带*号的内容为必填项,请检查后重试!","history.back()")
Response.Write(sScript)
else
'如果是更新则使用不同的分隔符
if bAction<>"" then
cSeperatorTemp=sTextSeparator
end if
sFieldsName=NewsTitle & cSeperatorTemp & NewsType & cSeperatorTemp & NewsContent & _
cSeperatorTemp & NewsPubUser
sFieldsName=sFieldsName & cSeperatorTemp & NewsPubDate
sFieldsValue="'" & bNewsTitle & "'" & cSeperatorTemp & bNewsType & cSeperatorTemp & _
"'" & bNewsContent & "'"
sFieldsValue=sFieldsValue & cSeperatorTemp & "'" & SessUserName & "'" & cSeperatorTemp & _
"'" & dBookInDate & "'"
'如果是修改则生成不同的语句
if bAction<>""then
if bID<>"" then
sCondition=ID & "=" & bID
sSqlAdd=GenerateUpdateSqlString(News,sFieldsName,sFieldsValue,sCondition)
else
sSqlAdd=-1
sScript=GenerateScriptAlert("修改数据的id号不能为空!","history.back()")
Response.Write(sScript)
end if
else
sSqlAdd=GenerateInsertSqlString(News,sFieldsName,sFieldsValue)
end if
if sSqlAdd<>"" and sSqlAdd<>-1 then
set conn=Server.CreateObject("ADODB.Connection")
conn.open Application("DBConn")
iAddFlag=0
conn.execute sSqlAdd,iAddFlag
if iAddFlag>0 then
sScript=GenerateScriptAlert("已经成功保存该新闻","history.back()")
Response.Write(sScript)
else
sScript=GenerateScriptAlert("保存新闻过程中出现问题,请返回重试!","history.back()")
Response.Write(sScript)
end if
set conn=nothing
else
sScript=GenerateScriptAlert("保存新闻过程中出现问题,请返回重试!","history.back()")
Response.Write(sScript)
end if