<% id=trim(request.QueryString("id")) if id<>"" and isnumeric(id) then else if trim(InfoOneId)<>"" then id=InfoOneId else id=2 end if end if id=cint(id) sql="select title,content,sjcontent,infoclass from info where id=" & id & "" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.bof and rs.eof then Response.redirect "index.asp" response.End else title=rs("title") sjcontent=rs("sjcontent") content=rs("content") infoclass=rs("infoclass") end if rs.close set rs=nothing %>


<%=gotTopic(trim(title),12)%> 导航 +
<% If sjcontent<>"" Then %><%= sjcontent %><% Else %><%=UploadFiles(content)%><% End If %>
XML 地图 | Sitemap 地图