conn1.asp

这个是一个<图片系统>,但是又是不能用的..所以..上传上来..等你们改良一下

<%
on error resume next
'db="../admin/mdb/abcdefassabcdefassoplan.mdb"      '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请检查连接字串。"
		Response.End
	End If
sub CloseConn()
On Error Resume Next
	Conn.close
	set Conn=nothing
end sub

'=================================================
'过程名：ShowPrevPic
'作  用：显示上一张图片
'参  数：TitleLen   ----图片名称最多字符数，一个汉字=两个英文字符
'=================================================
sub ShowPrevPic(TitleLen)
	dim rsPrev,sqlPrev
	sqlPrev="Select Top 1 * From Desktop  Where  DesktopID<" & rs("DesktopID")& " order by DesktopID DESC"
	Set rsPrev= conn.execute(sqlPrev)
	if TitleLen<0 or TitleLen>255 then TitleLen=50
	if rsPrev.eof then
	  	response.write "#"
	else
		response.write "" & rsPrev("DesktopID")& ""
	end if
	rsPrev.close
	set rsPrev=nothing
end sub


'=================================================
'过程名：ShowNextPic
'作  用：显示下一张图片
'参  数：TitleLen   ----图片名称最多字符数，一个汉字=两个英文字符
'=================================================
sub ShowNextPic(TitleLen)
	dim rsNext,sqlNext
	sqlNext="Select Top 1 * From Desktop  Where  DesktopID>" & rs("DesktopID")& " order by DesktopID ASC"
	Set rsNext= conn.execute(sqlNext)
	if TitleLen<0 or TitleLen>255 then TitleLen=50
	if rsNext.Eof then
	 	response.write "#"
	else
	  	response.write ""&rsNext("DesktopID")& ""
	end if
	rsNext.close
	set rsNext=nothing
end sub
%>