<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
' Edit: Sin.CS
dim king,action
action=request("action")
set king=new kingcms
king.head 0,0
select case cstr(action)
case"" king_def()
case else king.error("system/error")
end select
king_outhtm
set king=nothing
'def *** *** www.KingCMS.com *** ***
sub king_def()'需要加入标题,访问级别 dim slip,sql,linkid,dataform,data,i,rs,sliptitle,checked,upfname
dim i,sql,data,dataform,re
sql="linkname,linkdesc,linkurl,linkimg"'3
re=request.ServerVariables("http_referer")
if llll("re")<>"" then re=llll("re")
if re="" then re="user.asp"
dataform=split(sql,",")
redim data(ubound(dataform),0)
if llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) then
for i=0 to ubound(dataform)
data(i,0)=llll(dataform(i))
next
end if
kingtitle=king.lang("link/submit")
kingguide=king.guide(0)&kingtitle
ol=ol&""
if king.checkerr and llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) then
for i=1 to ubound(dataform)
data(i,0)=lll(dataform(i))
next
conn.execute "insert into kinglink (linkname,linkdesc,linkurl,linkimg,linkshow,linkdate,sysdate) values ('"&data(0,0)&"','"&data(1,0)&"','"&data(2,0)&"','"&data(3,0)&"',0,'"&tnow&"','"&tnow&"')"
ol="
