中国潍坊门户网新闻中心
<%if not isnumeric(request("typeid")) and request("typeid")<>"" then
response.write"ID±?D?ê?êy×?"
response.end
end if
if request("typeid")="0" or request("typeid")="" then
response.write "??2??e£??úê?è?′í?óμ?ID"
response.end
end if%>
<%set rs=server.createobject("adodb.recordset")
dim typeid,ntypeid
dim typename,ntypename
dim totalnews,Currentpage,totalpages,i
if request("typeid")="" then
' typeid=""
' typename="?ùóD????"
typeid="typeid=1 and "
sql="select type from type where typeid=1"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "?1??óDè?o?à???£???μ?1üàíò3??ìí?ó"
response.end
else
typename=rs("type")
end if
rs.close
else
typeid="typeid="&cstr(request("typeid"))&" and "
sql="select type from type where typeid="&cstr(request("typeid"))
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "??2??e£??ò2?μ??à1?D??¢!"
response.end
else
typename=rs("type")
end if
rs.close
end if
%>