<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%dim id,ctit,content,cid cid=trim(request.QueryString("cid")) id=trim(request.QueryString("id")) if id=12 then response.Redirect"wlist.asp" 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%>