city_view.asp

不错的ASP整站源代码。在IIS环境下运行都没有问题

<!-- #include file="include/con_city.asp" -->
<%
dim id
id=trim(request.querystring("id"))
if not(isnumeric(id)) then
  call format_redirect("city.asp")
end if
%>
<!-- #include file="include/sy_review.asp" -->
<!-- #include file="include/sy_ubb.asp" -->
<%
dim username,topic,word,tim,counter,comto,pic,ispic,cod,tt,cname,sname
sql="select top 1 c_id,s_id,username,topic,word,tim,counter,comto,pic,ispic,cod from city where hidden=1 and id="&id
set rs=edxsky_2in1.exec(sql,1)
if rs.eof then
  rs.close
  call format_redirect("city.asp")
end if
cid=rs("c_id")
sid=rs("s_id")
username=rs("username")
topic=rs("topic")
word=rs("word")
tim=rs("tim")
counter=rs("counter")
ispic=rs("ispic")
comto=rs("comto")
pic=rs("pic")
cod=rs("cod")
rs.close

cname="会员企业浏览"
sname=""
if cint(cid)>0 then
  if cint(sid)>0 then
    sql="select top 1 sy_class.c_name,sy_sort.s_name from sy_sort inner join sy_class on sy_sort.c_id=sy_class.c_id where sy_sort.c_id="&cid&" and sy_sort.s_id="&sid
  else
    sql="select top 1 c_name from sy_class where c_id="&cid
  end if
  set rs=edxsky_2in1.exec(sql,1)
  if not rs.eof then
    cname=rs("c_name")
    if sid>0 then sname=rs("s_name")
    tit=cname&"（"&sname&"）"
  end if
  rs.close
end if

tit=cname
if sname<>"" then tit=tit&"（"&sname&"）"

call web_head(0,0,0,0,0)
call city_load(1,0,0)
'----------------------------中间 开始----------------------------
if int(cod)=1 then word=code_sy(word)
tim=edxsky_2in1.time_type(tim,1)
topic=edxsky_2in1.code_js(topic,1)
comto=edxsky_2in1.code_js(comto,1)

dim id1,topic1,id2,topic2
id1=0
topic1=""
id2=0
topic2=""
sql="select top 1 id,topic from city where hidden=1 and id<"&id&" order by id desc"
set rs=edxsky_2in1.exec(sql,1)
if not rs.eof then
  id1=rs(0)
  topic1=rs(1)
end if
rs.close
sql="select top 1 id,topic from city where hidden=1 and id>"&id&" order by id"
set rs=edxsky_2in1.exec(sql,1)
if not rs.eof then
  id2=rs(0)
  topic2=rs(1)
end if
rs.close

'----------------------------左边 开始----------------------------
call city_label("会员企业链接")
call city_left("hot",10,10,"热门会员企业")
call city_left("good",10,10,"推荐会员企业")
'----------------------------左边 结束----------------------------
call web_center(0)
response.write vbcrlf&"city_view1("&id&",'"&topic&"','"&tim&"','"&comto&"','"&pic&"','"&ispic&"');"
response.write edxsky_2in1.js_type("",2)
response.write "<font id=""font_word"" class=htd style=""font-size:12px; font-family:宋体, Verdana, Arial, Helvetica, sans-serif;"">"&word&"</font>"
response.write edxsky_2in1.js_type("",1)
response.write vbcrlf&"city_view2("&id&",'"&n_sort&"','"&topic&"',"&counter&",'"&username&"',"&id1&",'"&topic1&"',"&id2&",'"&topic2&"');"
call city_sort("city_list.asp?",0,0,"会员企业分类")
response.write vbcrlf&"city_bar_top('相关评论',0,1);"
call review_type(n_sort,id,"city_view.asp?id="&id,1,username)
response.write vbcrlf&"city_bar_end('',0);"

call edxsky_2in1.exec("update city set counter=counter+1 where id="&id,0)
'----------------------------中间 结束----------------------------
call web_end(0,0)
%>