<%@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&"
" ol=ol&"
"&kingtitle&"
" ol=ol&"" ol=ol&"" ol=ol&""'网址 ol=ol&"" ol=ol&"" ol=ol&""'网站简介 ol=ol&"" ol=ol&"
"&king.lang("link/name")&"" ol=ol&"" ol=ol&king.check("linkname|6|link/tip/linkname|1-30;linkname|9|link/tip/rname|select count(linkid) from kinglink where linkname='$pro$'") ol=ol&"
"&king.lang("link/url")&"" ol=ol& king.check("linkurl|6|link/tip/linkurl|10-250;linkurl|5|link/tip/linkurl;linkurl|9|link/tip/rurl|select count(linkid) from kinglink where linkurl='$pro$'") ol=ol&"
"&king.lang("link/logo")&""'Logo图片 ol=ol&king.check("linkimg|6|link/tip/linkimg|0-250;linkimg|5|link/tip/linkimg") ol=ol&"
"&king.lang("link/desc")&"" ol=ol& king.check("linkdesc|6|link/tip/linkdesc|1-50") ol=ol&"
" ol=ol&"
" ol=ol&"" ol=ol&"" ol=ol&" " ol=ol&"" 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="
"&king.lang("common/submitok")&"
" ol=ol&"

"&king.lang("link/tip/ok")&"

" ol=ol&"

1. "&king.lang("back/home")&"

" ol=ol&"

2. "&re&"。

" ol=ol&"
" end if end sub 'outhtm *** *** www.KingCMS.com *** *** sub king_outhtm() %> <%=kingtitle%>
<%=kingguide%>
<%=ol%>
Powered By: KingCMS 3.0 Beta
<%end sub%>