<%
if request("Add")="OK" then
for x=1 to 10
photo_url=request("photo_url"&x)
if photo_url="" then exit for
photo_name=request("photo_name"&x)
tuijian_1=request("tuijian_1"&x)
if tuijian_1=1 then
tuijian_1=true
else
tuijian_1=false
end if
tuijian_2=request("tuijian_2"&x)
if tuijian_2=1 then
tuijian_2=true
else
tuijian_2=false
end if
tuijian_3=request("tuijian_3"&x)
if tuijian_3=1 then
tuijian_3=true
else
tuijian_3=false
end if
tuijian_4=request("tuijian_4"&x)
if tuijian_4=1 then
tuijian_4=true
else
tuijian_4=false
end if
pinglun=request("pinglun"&x)
if pinglun=1 then
pinglun=true
else
pinglun=false
end if
hits=1
add_date=now()
mesege=""
ClassID=request("ClassID")
set rs=server.createobject("ADODB.RecordSet")
sql="select * from net_photo"
rs.open sql,conn,1,3
rs.addnew
rs("photo_url")=photo_url
rs("photo_name")=photo_name
rs("tuijian_1")=tuijian_1
rs("tuijian_2")=tuijian_2
rs("tuijian_3")=tuijian_3
rs("tuijian_4")=tuijian_4
rs("pinglun")=pinglun
rs("hits")=hits
rs("add_date")=add_date
rs("mesege")=mesege
rs("ClassID")=ClassID
rs.update
Rs.Close
Set Rs=nothing
'sql="insert into net_photo(photo_url,photo_name,tuijian_1,tuijian_2,tuijian_3,tuijian_4,pinglun,hits,add_date,mesege,ClassID) values("&nowphoto_url&","&nowphoto_name&","&nowtuijian_1&","&nowtuijian_2&","&nowtuijian_3&","&nowtuijian_4&","&nowpinglun&","&hits&","&add_date&","&mesege&","&ClassID&")"
'conn.execute(sql)
next
'end if
%>
<%end if%>
<%
If Request("Add")="777" Then
NTitle = DelStr(Request("NTitle"))
NAuthor = DelStr(Request("NAuthor"))
NSource = DelStr(Request("NSource"))
ClassID = DelStr(Request("ClassID"))
NContent = Request("NContent")
'获取排序
set rsa=server.createobject("adodb.recordset")
rsa.open"select top 1 * from Netsys_News_Cn order by NOrder desc",conn,1,1
if not rsa.eof then
NOrder=rsa("NOrder")+1
else
NOrder=1
end if
rsa.close
set rsa=nothing
NViews = Request("NViews")
NHome = Request("NHome")
Set Rsa=server.createobject("ADODB.RecordSet")
Sqla="Select * From Netsys_News_Cn"
Rsa.open Sqla,conn,1,3
Rsa.addnew
Rsa("NTitle") = NTitle
Rsa("NAuthor") = NAuthor
Rsa("NSource") = NSource
Rsa("ClassID") = ClassID
Rsa("NContent") = NContent
Rsa("NOrder") = NOrder
Rsa("NViews") = NViews
If NHome=1 Then
Rsa("NHome") = 1
Else
Rsa("NHome") = 0
End If
Rsa.update
Rsa.Close
Set Rsa=nothing
Response.Write ""
End If
%>
当前位置 >> 相片管理 | 发布相片