(标有"*"的必须填写,否则无法正确提交您的反馈信息)
<%
sub ClassTitle
rs.open sql,conn,1,1
dim ThisMore
while not rs.EOF
Response.Write shownewf
if BigModel=1 then
if ShowBigModelRight=1 then
Response.Write showTitle("MainContentS",26) '分列有右栏
'Response.Write showTime
'Response.Write showImg
'Response.Write shownew
Response.Write showclick
Response.Write showOntop
Response.Write " "
else
Response.Write showTitle("MainContentS",30) '分列无右栏
Response.Write showTime
'Response.Write showImg
'Response.Write shownew
Response.Write showclick
Response.Write showOntop
Response.Write " "
end if
else
if ShowBigModelRight=1 then
Response.Write showTitle("MainContentB",42) '不分列有右栏
Response.Write showTime
Response.Write showImg
'Response.Write shownew
Response.Write showclick
Response.Write showOntop
Response.Write " "
else
Response.Write showTitle("MainContentB",60) '不分列无右栏
Response.Write showTime
Response.Write showImg
Response.Write shownew
Response.Write showclick
Response.Write showOntop
Response.Write " "
end if
end if
rs.MoveNext
wend
rs.close
end sub
set rs=nothing%> | | |
|
|
|
|
|