<%
page=request("page")
if page="" then
page=1
end if
page=cint(page)
typeid=request("typeid")
type2id=request("type2id")
url="?typeid="&typeid&"&type2id="&type2id&"&page="
typeid=request("typeid")
if typeid<>"" then
typeid=typeid
else
typeid=52
end if
Set rsd=Server.CreateObject("ADODB.RecordSet")
sqld="select * from khtype where typeid="&typeid&""
rsd.Open sqld,conn,1,1
if rsd.eof and rsd.bof then
else
typenamed=rsd("typename")
end if
rsd.close
set rsd=nothing
id=request("id")
set rs=server.CreateObject("adodb.recordset")
if id="" then
sql="select * from alskh where typename="&typeid&" order by id desc"
else
sql="select * from alskh where id="&id&""
end if
rs.open sql,conn,1,1
if not rs.eof then
title=rs("title")
jj=rs("jj")
content=rs("content")
typeid=rs("typename")
end if
rs.close
set rs=nothing
%>
钻采工具
