<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("txt.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sql="select * from home"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<%
MaxPerPage=rs("duo")
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim typename
dim ty
typeid=request("typeid")
typename="原创文学"
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim rstype
dim typesql
dim typeid,typename1
if not isEmpty(request("typeid")) then
typeid=request("typeid")
else
typeid=0
end if
set rstype=server.createobject("adodb.recordset")
typesql="select * from type where typeid="&typeid&""
rstype.open typesql,conn,1,1
if not rstype.eof then
typename1=rstype("type")
else typename1="全部文章"
end if
rstype.close
set rst=server.CreateObject("ADODB.RecordSet")
%>
| 您的位置>>文学园首页>>个人文集 |
用户注册 |
|
