<%
mm="admin25175" '登陆密码修改处
flag=Trim(Request.QueryString("flag"))
if flag="0" then
if Trim(Request.Form("user"))=mm then
response.Cookies("links")="www.25175.com"
end if
end if
user=request.Cookies("links")
id=Trim(Request.QueryString("id"))
if user="" then
Response.Write("<form name=""myform"" action=""?flag=0"" method=""post""><table width=""500"" height=""300"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr><td align=""center"">请输入密码：<input name=""user"" type=""text"" id=""user""><input type=""submit"" name=""Submit"" value="" 确 定 ""></td></tr></table></form>")
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 sp25175_pass='Y' where id="&id)
elseif flag="2" then
conn.execute("update links set sp25175_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 sp25175_logo,sp25175_url from links where sp25175_pass='Y' and sp25175_class='2' order by id asc")
while not rs.eof
i=i+1
if i>6 then
i=0
all=all&" "
end if
all=all&"<a href="&server.HTMLEncode(rs(1))&" target=""_blank""><img src="&server.HTMLEncode(rs(0))&" border=0 width=88 height=31></a> "
rs.movenext
wend
rs.close
all=all&" "
set rs=conn.execute("select sp25175_name,sp25175_url from links where sp25175_pass='Y' and sp25175_class='1' order by id asc")
while not rs.eof
all=all&"<a href="&server.HTMLEncode(rs(1))&" target=""_blank"">"&server.HTMLEncode(rs(0))&"</a> "
'Response.Write("<br>")
rs.movenext
wend
rs.close
all="document.write('"&all&"');"
path=Server.MapPath("25175home.js")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
set file1=fso.CreateTextFile(path,true)
file1.writeline(all)
file1.close
set fso=nothing
ttt="<font color=red>已经生成文件</font>"
end if
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from links order by sp25175_pass, id desc"
rs.open sql,conn,1,1
ars=rs.GetRows(-1)
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<%
for i=0 to ubound(ars,2)
txt=""
if ars(1,i)="1" then
t="文字链接"
else
t="LOGO链接"
end if
if ars(9,i)="N" then
tt="<font color=red>审核中</font>"
elseif ars(9,i)="Y" then
tt="已认证"
end if
txt="链接类型："&t&"<BR>网站名称："&server.HTMLEncode(ars(2,i))&"<BR>网站地址："&server.HTMLEncode(ars(3,i))&"<BR>LOGO地址："&server.HTMLEncode(ars(4,i))&"<BR>QQ 号码："&server.HTMLEncode(ars(5,i))&"<BR>邮箱地址："&server.HTMLEncode(ars(6,i))&"<BR>留 言："&server.HTMLEncode(ars(7,i))&"<BR>申请时间："&ars(8,i)&"<BR>状 态："&tt&"------<a href=?flag=1&id="&ars(0,i)&">通过</a> - <a href=?flag=2&id="&ars(0,i)&">未通过</a> - <a href=?flag=3&id="&ars(0,i)&">删除</a>"&chr(13)
Response.Write("<p>"&txt&"</p><HR>")
next
%>
