company.asp

北方供求 V3.3 Sql 版 §V3.3更新功能 1、首页（自动生成静态

<!--#include file="../Common/Inc_DatConn.asp"-->
<!--#include file="../Common/Inc_Config.asp"-->
<!--#include file="../Common/Inc_Function.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%><%Dim intInfoKey
Dim rdsInfo
Dim sqlInfo
Dim sqlUpdateInfoHits
cid=RtnReplaceInt(request("cid"),0)
set crs = Server.CreateObject("ADODB.Recordset")
sqlInfo = "Select * From Dat_Member Where State=0 and MemberType=2 and MemberKey="&cid
crs.Open sqlInfo,Conn,1,1
if not crs.eof then
mb=crs("mb")
if mb="2" then
Response.Redirect "company2.asp?cid="&cid&""
else
Response.Redirect "company1.asp?cid="&cid&""
end if
else
response.write"<SCRIPT language=JavaScript>alert('不存在的单位！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
end if
crs.close
set crs=nothing
conn.close
set conn=nothing
%>