%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%dim id,ctit,content,cid
cid=trim(request.QueryString("cid"))
id=trim(request.QueryString("id"))
if trim(cid)="" then cid="gs"
if not isnumeric(id) then id=1
rs.open "select * from info where id="&id,conn,1,1
content=rs("content")
ctit=rs("name")
cid=rs("cid")
if rs("des")="" then des=getheader(rs("content"),120) else des=rs("des") end if
if rs("key")="" then key=webkey else key=rs("key") end if
rs.close
if len(key)=0 then key=tit
if len(des)=0 then des=webdis
%>
<%=ctit%>-<%=webname%>
|
<%= ctit %> |
<%= weburl %> |
<% = content%>
|