<%
call dbconnbegin()
dim ors2
set ors2=server.CreateObject("adodb.recordset")
ors2.open "select * from type where type_type=4",oconn,1,1
do while not ors2.eof%>
"><%=ors2("type_name")%> |
|
<%ors2.movenext
loop
ors2.close
set ors2=nothing
%>
|
|
|
<%response.Write aboutpic(name,0,0,"left")%> |
|
<%call dbconnbegin()
dim id
id=request("newsid")
ors.open "select * from Down where Down_ID ="&id,oconn,1,1
%>
名称:<%=oRs("Down_name")%> |
下载大小:<%=oRs("Down_size")%>KB |
发布单位:<%=oRs("Down_zz")%> |
">点击下载 |
下载说明:<%=oRs("Down_content")%> |
|
|
|
|
|