<%
if Request.Cookies("admindj")<>"1" then
Response.Write "
权限不足，你没有此功能的管理权限"
Response.end
end if
%>
<%
path=config("path")
session("upeditpath")=path
Application("path")=path
emoney=0
ehit=1
esl=999
elxr=Application("PROlxr")
eqq=Application("PROqq")
emsn=Application("PROmsn")
eEmail=Application("PROemail")
eTel=Application("PROTEL")
path=config("path")
Application("path")=path
saveid=trim(request("saveid"))
editid=trim(request("editid"))
title=trim(request("title"))
lb=trim(request("lb"))
pic=trim(request("pic"))
content=trim(request("content"))
money=trim(request("money"))
sl=trim(request("sl"))
LXR=trim(request("lxr"))
QQ=trim(request("QQ"))
MSN=trim(request("MSN"))
EMAIL=trim(request("EMAIL"))
tel=trim(request("tel"))
hit=trim(request("hit"))
if instr(lb,"|")<>0 then
aa=split(lb,"|")
lb1=aa(0)
lb2=aa(1)
end if
if (not isNumeric(money)) then money=0
if editid="" and saveid="" and title<>"" and lb1<>"" and lb2<>"" and pic<>"" and content<>"" and money<>"" and sl<>"" and hit<>"" then
set rs = Server.CreateObject("ADODB.RecordSet"):rs.cursorlocation=3
rs.Open "select * from [XSPRO] order by id desc",conn,3,3
rs.addnew
rs("title")=title
rs("lb1")=lb1
rs("lb2")=lb2
rs("pic")=pic
rs("content")=content
rs("money")=money
rs("sl")=sl
rs("addtime")=now()
rs("hit")=hit
rs("lxr")=lxr
rs("QQ")=QQ
rs("MSN")=MSN
rs("Email")=Email
rs("TEL")=TEL
rs("sh")=1
Application("PROlxr")=lxr
Application("PROqq")=qq
Application("PROmsn")=msn
Application("PROemail")=email
Application("PROTEL")=tel
rs.update
rs.close:set rs=nothing
conn.close:set conn=nothing
Response.Write "
添加成功
"
Response.end
elseif editid="" and saveid<>"" and title<>"" and lb1<>"" and lb2<>"" and pic<>"" and content<>"" and money<>"" and sl<>"" and hit<>"" then
set rs = Server.CreateObject("ADODB.RecordSet"):rs.cursorlocation=3
rs.Open "select top 1 * from [XSPRO] where id="&saveid&" order by id desc",conn,3,3
if rs.recordcount<>0 then
rs("title")=title
rs("lb1")=lb1
rs("lb2")=lb2
rs("pic")=pic
rs("content")=content
rs("money")=money
rs("sl")=sl
rs("hit")=hit
rs("addtime")=now()
rs("lxr")=lxr
rs("QQ")=QQ
rs("MSN")=MSN
rs("Email")=Email
rs("TEL")=TEL
Application("PROlxr")=lxr
Application("PROqq")=qq
Application("PROmsn")=msn
Application("PROemail")=email
Application("PROTEL")=tel
rs.update
end if
rs.close:set rs=nothing
conn.close:set conn=nothing
Response.Write "
修改成功
"
Response.end
end if
if editid<>"" and saveid="" and title="" then
set rs = Server.CreateObject("ADODB.RecordSet"):rs.cursorlocation=3
rs.Open "select top 1 * from [XSPRO] where id="&editid&" order by id desc",conn,3,3
if rs.recordcount<>0 then
etitle=rs("title")
lb1=rs("lb1")
lb2=rs("lb2")
epic=rs("pic")
econtent=rs("content")
emoney=rs("money")
esl=rs("sl")
ehit=rs("hit")
elxr=rs("lxr")
eqq=rs("QQ")
emsn=rs("MSN")
eEmail=rs("Email")
eTel=rs("TEL")
end if
rs.close:set rs=nothing
end if
if Application("PROlxr")="" then
set rs = Server.CreateObject("ADODB.RecordSet"):rs.cursorlocation=3
rs.Open "select top 1 * from [XSPRO] where sh=1 order by id desc",conn,1,1
if rs.recordcount<>0 then
Application("PROlxr")=rs("lxr")
Application("PROqq")=rs("qq")
Application("PROmsn")=rs("msn")
Application("PROemail")=rs("email")
Application("PROTEL")=rs("tel")
end if
rs.close:set rs=nothing
end if
%>
<%
conn.close
set conn=nothing
%>