ycms_link.asp

来自「安全性好,适用于展示和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 27 行

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/YCMS.asp"-->
<!--#include file="inc/skin.asp"-->
<%
title="鍙嬫儏杩炴帴"
YCMS_Open()
Call YCMS_Where(title,"YCMS_Link.asp")
Dim linkid,action,gourl
    linkid=Request.QueryString("id")
	action=Request.QueryString("action")
if action="go" Then
YCMS_sql("Update [YCMS_link] SET click=click+1 where id="&linkid)
set rs=conn.execute("select [weburl] from [YCMS_link] where id="&linkid)
YCMS_url(rs("weburl"))
	Response.End
set rs=nothing
elseif 	action="gogo" then
dim link_webname,link_weburl,link_weblogo
link_webname=YCMS_post("绔欏悕",Request.Form("webname"),0,20,2)
link_weburl=YCMS_post("缃戝潃",Request.Form("weburl"),0,100,2)
If Request.Form("istext")<>1 Then 
link_weblogo=YCMS_post("LOGO",Request.Form("weblogo"),0,100,0)
End if
set rs=server.CreateObject("adodb.recordset")
rs.open "select [webname],[weburl] from [YCMS_link] where webname='"&link_webname&"' or weburl='"&link_weburl&"'",conn,1,1
if not rs.eof and not rs.bof then
YCMS_print("<script>alert('瀵逛笉璧凤紝鎮ㄩ噸澶嶆彁浜や簡锛