%@ Language=VBScript%>
<%'该文件需要进行调整和设置
dim typename
NewsID=Request.QueryString("NewsID")
if newsid="" then
response.write ""
response.end
elseif not IsNumeric(newsid) then
response.write ""
response.end
else
conn.execute("update News Set Click=click+1 where NewsID=" & NewsID )
set rs=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies("key")="" then
rs.Source="select * from News where checkked=1 and newslevel=0 and newsid="&newsid
end if
if Request.cookies("key")="selfreg" then
if Request.cookies("reglevel")=3 then
rs.Source="select * from News where checkked=1 and newslevel<=3 and newsid="&newsid
end if
if Request.cookies("reglevel")=2 then
rs.Source="select * from News where checkked=1 and newslevel<=2 and newsid="&newsid
end if
if Request.cookies("reglevel")=1 then
rs.Source="select * from News where checkked=1 and newslevel<=1 and newsid="&newsid
end if
end if
if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then
rs.Source="select * from News where newsid="&newsid
end if
else
rs.Source="select * from News where newsid="&newsid
end if
rs.Open rs.Source,conn,1,1
if rs.bof and rs.eof then
response.write "无权限访问或无此内容"
else
bigclassid=rs("bigclassid")
smallclassid=rs("smallclassid")
title=trim(rs("title"))
title=replace(title,"
","")
title1=trim(rs("title"))
about=trim(rs("about"))
Author=trim(rs("Author"))
editor=trim(rs("editor"))
Original=trim(rs("Original"))
image=rs("image")
UpdateTime=trim(rs("UpdateTime"))
News_Content=rs("Content")
SpecialID=rs("SpecialID")
SpecialID2=rs("SpecialID2")
click=rs("click")
EnCode=trim(rs("EnCode"))
typeid=rs("typeid")
titletype=rs("titletype")
titlesize=rs("titlesize")
titlecolor=rs("titlecolor")
titleface=rs("titleface")
if titlesize=0 then
size="18px"
else
if titlesize=1 then
size="8px"
else
if titlesize=2 then
size="10px"
else
if titlesize=3 then
size="12px"
else
if titlesize=4 then
size="14px"
else
if titlesize=5 then
size="18px"
else
if titlesize=6 then
size="24px"
else
if titlesize=7 then
size="36px"
end if
end if
end if
end if
end if
end if
end if
end if
rs.Close
set rs=nothing
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from type where typeID=" & typeID
rs.Open rs.Source,conn,1,1
typename=rs("typename")
rs.Close
set rs=nothing
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from bigclass Where BigClassid=" & BigClassid
rs.Open rs.Source,conn,1,1
bigclassname=rs("bigclassname")
rs.close
set rs=nothing
if smallclassid<>"" then
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from smallclass Where smallClassid=" & smallClassid
rs.Open rs.Source,conn,1,1
smallclassname=rs("smallclassname")
rs.close
set rs=nothing
end if
%>
|
Brief Introduction |
|
Beijing is the Best Choice if You Want to Enjoy the Imperial Palace While Qiankou is a Must if You Want to See the Ancient Chinese Residence Qiankou Ancient Village in Huizhou District
of Huangshan City has been the place where Qiankou Houses Museum is situated at the foot of the Purple Peak, a fork on the road to the Mt. Huangshan from Nanjing, Jiangxi, Shanghai and Hangzhou. It was granted by the State Department as the National Key Protection Unit as early as January 1988. Because of its historical, artistic and scientific values, it has become the precious living example for the study of history of ancient Chinese architecture and “a living monograph of the folk arts of the Ming and Qing Dynasty” and “model of highly harmonious integration of man-made scenery and natural landscape”. Many films and TV series were shot here, including “China’s Five Thousand Years of Civilization” by Japan, “Ancient Huizhou”, “Walk out of the Lanshui River”,“Wang Jiaxiang”, “Inside Story of Xuedizi”, “Taiping Heavenly Kingdom”, “New 4th Army”, “Eight Thousand Li Cloud and Moon” by Taiwan, “Huizhou Women” and etc.
“Making a casual stop on the endless way to the future, and putting aside something anxious in your mind.” (Couplets in the Charity Pavilion) When you walk into the Qiankou Houses Museum, you are entering the ancient Huizhou five hundred years ago… |