urlcl.asp

3ani桑尼网络wap导航程序wap导航程序wap导航程序

<!--#include file="../66hc.asp"--><!--#include file="admin.asp"-->
<card id="main" title="设置成功" >
<p>
<%
name=ubb(request("name"))
syname=ubb(request("syname"))
url=ubb(request("url"))
tj=ubb(request("tj"))
zt=ubb(request("zt"))
jrlr=ubb(request("jrlr"))
jrsj=ubb(request("jrsj"))
zrlr=ubb(request("zrlr"))
zxsj=ubb(request("zcsj"))
zdlr=ubb(request("zdlr"))
lcsl=ubb(request("lcsl"))
fid=ubb(request("fid"))
pdsj=ubb(request("pdsj"))
id=ubb(request("id"))
set rsp=Server.CreateObject("ADODB.Recordset")
rsppl="select * from [66hc_url] where [66hc_id]="&id&""
rsp.open rsppl,conn,1,2
if not rsp.eof then
if name<>"" then rsp("66hc_name")=name
if syname<>"" then rsp("66hc_sy")=syname
if url<>"" then rsp("66hc_url")=url
if jrlr<>"" then rsp("66hc_jr")=jrlr
if jrsj<>"" then rsp("66hc_jrt")=jrsj
if zrlr<>"" then rsp("66hc_zr")=zrlr
if zdlr<>"" then rsp("66hc_zl")=zdlr
if tj<>"" then rsp("kz")=tj
if zt<>"" then rsp("zt")=zt
if lcsl<>"" then rsp("lc")=lcsl
if fid<>"" then rsp("66hc_fid")=fid
%>
编辑成功<a href='url.asp?sb=<%=sb%>&amp;id=<%=id%>'>返回</a>
<%
end if
rsp.update
rsp.close
set rsp=nothing%>
<br/>----------<br/>
<a href="66hc_zd.asp?sb=<%=sb%>">返回站点管理</a><br/>
<a href="d_i.asp?sb=<%=sb%>">返回管理首页</a><br/>
<a href="/?sb=<%=sb%>">返回网站首页</a><br/>
报时:<%=time%>
</p></card></wml>