<%@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 i,sql,data,dataform,re
sql="linkname,linkdesc,linkurl,linkimg,menuid,linktop,linkdir,linkaddr"'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
data(5,0)=0
data(6,0)=-1
conn.execute "insert into "&king.getTable("kinglink")&" (linkname,linkdesc,linkurl,linkimg,linkshow,linkdate,sysdate,menuid,linktop,linkdir,linkaddr) values ('"&data(0,0)&"','"&data(1,0)&"','"&data(2,0)&"','"&data(3,0)&"',0,'"&tnow&"','"&tnow&"',"&data(4,0)&","&data(5,0)&","&data(6,0)&",'"&data(7,0)&"')"
ol="
