co.asp

来自「一个完全仿照阿里巴巴的网站管理系统 本软件没有版权问题」· ASP 代码 · 共 37 行

<!--#include file="main.asp"-->
<%id=request("id")
if id="" or IsNumeric(id)<>true then
response.write"请输入正确的企业ID号！"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from SMT_yp where SMT_id="&id&""
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_key")=4 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%>