link_e_chk.asp

个人网站系统,本人基于第三方源码进行更改!

<!--#include file="conn.asp"-->
<!--#include file=cookies.asp-->
<%
dim rs,sql,id,i,str2,web,url,logo,webabout

id=trim(request("selectedid"))
web=trim(request("web"))
url=trim(request("url"))
logo=trim(request("logo"))
webabout=trim(request("webabout"))

id=trim(request("selectedid"))
str2=split(id,",")
for i=0 to ubound(str2)
set rs=server.createobject("adodb.recordset")
sql="select * from [link] where id="&trim(str2(i))
rs.open sql,conn,1,3
if rs("yanz")=1 then
rs("web")=web
rs("url")=url
rs("logo")=logo
rs("webabout")=webabout
rs("jrsj")=now()
rs.update
end if
next
response.write "修改成功！！"
response.write "<meta http-equiv=refresh content=""1;URL=link.asp"">"
%>