百狐114网址之家 - 网友留言

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% mm="123456" '登陆密码修改处 flag=Trim(Request.QueryString("flag")) if flag="0" then if Trim(Request.Form("user"))=mm then response.Cookies("links")="cr88" end if end if user=request.Cookies("links") id=Trim(Request.QueryString("id")) if user="" then Response.Write("") response.End() end if set conn=server.createobject("ADODB.CONNECTION") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("links.mdb") conn.open connstr if flag="1" then conn.execute("update links set fy_pass='Y' where id="&id) elseif flag="2" then conn.execute("update links set fy_pass='N' where id="&id) elseif flag="3" then conn.execute("delete from links where id="&id) elseif flag="4" then set rs=conn.execute("select fy_logo,fy_url,fy_name from links where fy_pass='Y' and fy_class='2' order by id asc") while not rs.eof i=i+1 if i>7 then i=1 all=all&"

" end if all=all&"

" rs.movenext wend rs.close all=all&"

" set rs=conn.execute("select fy_name,fy_url from links where fy_pass='Y' and fy_class='1' order by id asc") while not rs.eof all=all&""&server.HTMLEncode(rs(0))&" " Response.Write(" ") rs.movenext wend rs.close all="document.write('"&all&"');" path=Server.MapPath("link.js") Set fso = Server.CreateObject("Scripting.FileSystemObject") set file1=fso.CreateTextFile(path,true) file1.writeline(all) file1.close set fso=nothing ttt="已经成功生成文件 " end if set rs=server.CreateObject("ADODB.RecordSet") sql="select * from links order by fy_pass, id desc" rs.open sql,conn,1,1 ars=rs.GetRows(-1) rs.close set rs=nothing conn.close set conn=nothing %>

百狐114网址之家 - 网友留言

<% for i=0 to ubound(ars,2) txt="" if ars(1,i)="1" then t="提交意见" else t="提交网站" end if if ars(9,i)="N" then tt="审核中" elseif ars(9,i)="Y" then tt="已认证" end if txt="项目名称："&t&"
网站名称："&server.HTMLEncode(ars(2,i))&"
网站网址："&server.HTMLEncode(ars(3,i))&"
网站分类："&server.HTMLEncode(ars(4,i))&"
联系ＱＱ："&server.HTMLEncode(ars(5,i))&"
给我意见："&server.HTMLEncode(ars(6,i))&"
网站简介："&server.HTMLEncode(ars(7,i))&"
申请时间："&ars(8,i)&"
状态："&tt&"------通过 - 未通过 - 删除"&chr(13) Response.Write("

"&txt&"

") next %>