|
<%
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open connstr
dim id
id=request.querystring("ID")
sql="select top 1 * from aboutus where type="&stype&""
rs.open sql,conn,1,1
if rs.eof then
response.write "无效的项目ID"
else
%>
<%
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
|
