<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% code=106 flag=Request.QueryString("flag") set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") mymenu="sites_apply" if Request.ServerVariables("REQUEST_METHOD")="POST" then topic=Request.Form("topic") sysemail=Request.Form("sysemail") email=Request.Form("email") myname=Request.Form("myname") corpname=Request.Form("corpname") address=Request.Form("address") phone=Request.Form("phone") fax=Request.Form("fax") content=Request.Form("content") rs.Open "contact",cn,3,3 rs.AddNew rs("title")=topic rs("sysemail")=sysemail rs("email")=email rs("myname")=myname rs("corpname")=corpname rs("phone")=phone rs("fax")=fax rs("content")=content rs("address")=address rs("creadate")=now() rs("flag")="0" rs("code")=deptcode rs.Update rs.Close Response.Redirect("sites_apply.asp?flag=1") end if %> 申请链接_网站联盟_ABC环球集团
  网站联盟-ABC链接
<% sql="select * from miscell_class where basclass='900' and flag='0' order by sortnum" rs.open sql,cn,1,1 i=1 do while not rs.EOF url="sites_web.asp?classcode="+trim(rs("classcode")) %> <% if i mod 2 = 0 then response.write"" i=i+1 rs.MoveNext loop rs.Close %>
·<%=trim(rs("classname"))%>
本站六个月平均排名曲线
 如果看不到图片,请单击右键选择 [显示图片]
<%sql="select content from miscell where classcode='999' and sortnum=100" rs.Open sql,cn,1,1 if not rs.EOF then Response.Write(checkstr(trim(rs("content")),"0")) end if rs.Close %>
<%if flag="1" then%>
  您申请的友情链接已发送成功,ABC系统会审核您是否已经做好我们链接!
<%end if%>
留言主题: *
网站名称: *
网站地址: *
所属分类: *
电子邮箱: * 确保您的邮箱正确
联系电话:
补充说明: