<%@ 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链接 <% 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%> 留言主题： * 网站名称： * 网站地址： * 所属分类： * 电子邮箱： * 确保您的邮箱正确 联系电话： 补充说明： 填写网站说明及我站在贵站的链接页面