<%@language=vbscript codepage=936 %>
<%
dim rs,sql,ErrMsg,FoundErr
dim ArticleID,Product_Id,BigClassName,SmallClassName,Title,Content,UpdateTime,Hits
dim IncludePic,DefaultPicUrl,UploadFiles,Elite,Passed,arrUploadFiles
dim ObjInstalled
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
FoundErr=false
ArticleID=Trim(Request.Form("ArticleID"))
Product_Id=trim(request.form("Product_Id"))
BigClassName=trim(request.form("BigClassName"))
SmallClassName=trim(request.form("SmallClassName"))
Title=replace(trim(request.form("Title"))," "," ")
Buy_price=FormatNumber(request.form("Buy_price"),1,-1)
Product_Gain=FormatNumber(request.form("Product_Gain"),2,-1)
Spec=trim(request.form("Spec"))
Unit=trim(request.form("Unit"))
videosrc=trim(request.form("videosrc"))
Memo=trim(request.form("Memo"))
key=trim(request.form("key"))
Content=trim(request.form("Content"))
UpdateTime=trim(request.form("UpdateTime"))
IncludePic=trim(request.form("IncludePic"))
DefaultPicUrl=trim(request.form("DefaultPicUrl"))
UploadFiles=trim(request.form("UploadFiles"))
Passed=trim(request.form("Passed"))
Elite=trim(request.form("Elite"))
Hits=trim(request.form("Hits"))
num=trim(request.form("num"))
price=FormatNumber((Product_Gain+1)*Buy_price,1,-1)
if BigClassName="" then
founderr=true
errmsg=errmsg+"未指定文章所属大类"
end if
if Title="" then
founderr=true
errmsg="文章标题不能为空"
end if
if Spec="" then
Spec=null
end if
if Unit="" then
Unit=null
end if
if Memo="" then
Memo=null
end if
if founderr=false then
Title=dvhtmlencode(Title)
'Content=ubbcode(Content)
if UpdateTime<>"" and IsDate(UpdateTime)=true then
UpdateTime=CDate(UpdateTime)
else
UpdateTime=now()
end if
if Hits<>"" then
Hits=CLng(Hits)
else
Hits=0
end if
set rs=server.createobject("adodb.recordset")
if request("action")="add" then
sql="select top 1 * from pic"
rs.open sql,conn,1,3
rs.addnew
call SaveData()
rs.update
ArticleID=rs("ArticleID")
rs.close
set rs=nothing
elseif request("action")="Modify" then
if ArticleID<>"" then
sql="select * from pic where articleid=" & ArticleID
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) then
call SaveData()
rs.update
rs.close
set rs=nothing
else
founderr=true
errmsg=errmsg+"找不到此 ，可能已经被删除。"
call WriteErrMsg()
end if
else
founderr=true
errmsg=errmsg+"不能确定ArticleID的值"
call WriteErrMsg()
end if
else
founderr=true
errmsg=errmsg+"没有选定参数"
call WriteErrMsg()
end if
call CloseConn()
%>
<%
else
WriteErrMsg
end if
sub SaveData()
rs("Product_Id")=Product_Id
rs("BigClassName")=BigClassName
rs("SmallClassName")=SmallClassName
rs("Title")=Title
rs("Buy_price")=Buy_price
rs("Product_Gain")=Product_Gain
rs("Price")=Price
rs("Spec")=Spec
rs("Unit")=Unit
rs("Memo")=Memo
rs("videosrc")=videosrc
rs("key")=key
rs("Content")=Content
rs("Hits")=Hits
rs("num")=num
if IncludePic="yes" then
rs("IncludePic")=True
else
rs("IncludePic")=False
end if
if Passed="yes" then
rs("Passed")=True
else
if EnableArticleCheck="No" then
rs("Passed")=True
else
rs("Passed")=False
end if
end if
if Elite="yes" then
rs("Elite")=True
else
rs("Elite")=False
end if
rs("UpdateTime")=UpdateTime
'***************************************
rs("DefaultPicUrl")=DefaultPicUrl
rs("UploadFiles")=UploadFiles
end sub
response.redirect("picManage.asp")
response.end()
%>