index.asp

来自「一个诚信信息港门户网 功能: 系统设置 企业会员 个人」· ASP 代码 · 共 45 行

<%dbdns="../"%>
<!--#include file="../main.asp"-->
<%sURL=Request.ServerVariables("HTTP_HOST")

if instr(sUrl,"www.")>0 then
sUrl=replace(sUrl,"www.","")
end if

first_name=split(sURL,".")
if ubound(first_name)>2 then 
response.write"<script>alert('页面打开出错，下面是产生错误的可能原因：\n\n·在您输入的网址不正确');window.open('"&application("cityurl")&"','_parent');</script>"
response.end
end if

user=first_name(0)


set rs=server.createobject("adodb.recordset")
sql="select *  from SMT_yp where SMT_user='"&user&"'"
rs.open sql,conn,1,1
if not rs.eof then
  if rs("SMT_key")=0 then
    response.write"<script>alert('页面打开出错，下面是产生错误的可能原因：\n\n·该企业正在等待管理员审核开通');window.open('"&application("cityurl")&"','_parent');</script>"
    response.end
  elseif rs("SMT_key")=2 then
    response.write"<script>alert('页面打开出错，下面是产生错误的可能原因：\n\n·该企业已过期');window.open('"&application("cityurl")&"','_parent');</script>"
    response.end
  elseif rs("SMT_key1")=0 then
    response.write"<script>alert('页面打开出错，下面是产生错误的可能原因：\n\n·由于某种原因，该企业已被管理员关闭\n\n·如有问题，请及时和我们联系');window.open('"&application("cityurl")&"','_parent');</script>"
    response.end
  else
    id=rs("SMT_id")
    coname=rs("SMT_coname")
	co=rs("SMT_co")
    response.write"<title>"&coname&"</title>"
    url=cityurl&"co/"&co&"/index.asp?id="&id
	response.write"<frameset framespacing=0 cols=0,* rows=* border=0 frameborder=NO><frame src=about:blank marginwidth=0 marginheight=0 noresize><frame src="&url&"></frameset>"

  end if
else
    response.write"<script>alert('页面打开出错，下面是产生错误的可能原因：\n\n·该企业可能不存在');window.open('"&application("cityurl")&"','_parent');</script>"
    response.end
end if
rs.close%>