 |
<%
stype=request("type"): if IsEmpty(stype) then stype=12
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open connstr
dim i
i=2
sql="select id,head from aboutus where type="&stype&" and Language=0 order by createdate asc"
rs.open sql,conn,1,1
while not rs.eof
%>
|
&type=<%=stype%>&title=<%=rs("head")%>>
<%=rs("head")%> |
<%
rs.movenext
i=i+1
wend
rs.close
conn.close
%>
|
| |
| |
| |
|
|
|
|
<%
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
%>
|
|