code.asp

学校网站管理系统采用ASP+ACCESS编写而成

<!--#include file="Conn.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="Ubbcode.asp"-->
<!--#include file="Function.asp"-->
<%
dim strFileName,MaxPerPage
dim totalPut,CurrentPage,TotalPages
dim BeginTime,EndTime
dim founderr, errmsg
dim BigClassName,SmallClassName,keyword,strField
dim rs,sql,sqlArticle,rsArticle,sqlSearch,rsSearch,sqlBigClass,rsBigClass
dim SpecialTotal
BeginTime=Timer
BigClassName=Trim(request("BigClassName"))
SmallClassName=Trim(request("SmallClassName"))
keyword=trim(request("keyword"))
strField=trim(request("Field"))

if request("page")<>"" then
    currentPage=cint(request("page"))
else
	currentPage=1
end if

'=================================================|
'过程名：cutstr
'作  用：控制显示字段字数
'参  数：无
'=================================================|

function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function

'=================================================|
'过程名：Student_Tree
'=================================================|

sub Student_Tree(Sum)
		dim sqlClass,rsClass,strTree,j,args1
			sqlClass="select top " + Cstr(Sum) + " * from Student order by ArticleID desc"
			Set rsClass= Server.CreateObject("ADODB.Recordset")
			rsClass.open sqlClass,conn,1,1
				strTree= strTree & "<table width='98%' border=0 cellpadding=0 cellPadding=5 align=center>"
				j=1
				strTree= strTree & "<tr>"
				do while not rsClass.eof
				strTree= strTree & "<TD>"
				strTree= strTree & "<TABLE height=96 cellSpacing=1 cellPadding=1 width=120 align=center bgColor=#cccccc border=0>"
				strTree= strTree & "<TR><TD align=middle bgColor=#ffffff>"
				strTree= strTree & "<a href='XueShow.asp?XueID="&rsClass("ArticleID")&"'>"
				strTree= strTree & "<IMG height=96 src="&rsClass("Picture")&" width=120 border=0>"
				strTree= strTree & "</a></TD></TR></TABLE>"
				strTree= strTree & "<TABLE cellSpacing=0 cellPadding=0 width=100 align=center border=0>"
				strTree= strTree & "<TR><TD align=middle>"&cutstr(rsClass("Title"),6)&""
				strTree= strTree & "</TD></TR></TABLE></td>"
				if j mod 4 =0 then		
				strTree=strTree & "</TR>"		
				strTree=strTree & "<TR>"	
                end if
					rsClass.movenext
					j=j+1
				loop
				strTree=strTree & "</TR>"	
				strTree=strTree & "</table>"
			response.write strTree
			rsClass.close
		set rsClass=nothing
end sub

sub News_Tree(Sum)
		dim sqlClass,rsClass,strTree,j,args1
			sqlClass="select top " + Cstr(Sum) + " * from News order by ArticleID desc"
			Set rsClass= Server.CreateObject("ADODB.Recordset")
			rsClass.open sqlClass,conn,1,1
				strTree= strTree & "<table width='100%' border=0 cellpadding=0 cellspacing=0>"
				j=1
				do while not rsClass.eof
				strTree= strTree & "<tr><TD>"
				strTree= strTree & "<TABLE class=下实线 height=25 cellSpacing=0 cellPadding=0 width=""100%"" align=center border=0>"
				strTree= strTree & "<TR><TD>"
				strTree= strTree & "·<a href='NewsShow.asp?NewsID="&rsClass("ArticleID")&"' class=font2>"
				strTree= strTree & ""&cutstr(rsClass("Title"),25)&""
				strTree= strTree & "</a>"
				strTree= strTree & " ["&FormatDateTime(rsClass("UpdateTime"),2)&"]"
				strTree= strTree & "</TD></TR></TABLE></td>"
                if j mod 1 =0 then		
                end if
					rsClass.movenext
					j=j+1
				loop
				strTree=strTree & "</TR>"	
				strTree=strTree & "</table>"
			response.write strTree
			rsClass.close
		set rsClass=nothing
end sub

'=================================================|
'过程名：**Name
'=================================================|

sub W_Name()
dim W_ID,sql,rs
sql="select * from WebBasicInfo where W_ID=1"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
response.write ""& rs("W_Name") &""
rs.close
set rs=nothing
end sub

sub W_Url()
dim W_ID,sql,rs
sql="select * from WebBasicInfo where W_ID=1"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
response.write ""& rs("W_Url") &""
rs.close
set rs=nothing
end sub

sub W_keywords()
dim W_ID,sql,rs
sql="select * from WebBasicInfo where W_ID=1"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
response.write ""& rs("W_keywords") &""
rs.close
set rs=nothing
end sub

sub W_email()
dim W_ID,sql,rs
sql="select * from WebBasicInfo where W_ID=1"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
response.write ""& rs("W_email") &""
rs.close
set rs=nothing
end sub

sub W_Copyright()
dim W_ID,sql,rs
sql="select * from WebBasicInfo where W_ID=1"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
response.write ""& rs("W_Copyright") &""
rs.close
set rs=nothing
end sub

sub W_Address()
dim W_ID,sql,rs
sql="select * from WebBasicInfo where W_ID=1"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
response.write ""& rs("W_Address") &""
rs.close
set rs=nothing
end sub

sub W_Tel()
dim W_ID,sql,rs
sql="select * from WebBasicInfo where W_ID=1"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
response.write ""& rs("W_Tel") &""
rs.close
set rs=nothing
end sub

sub W_Fax()
dim W_ID,sql,rs
sql="select * from WebBasicInfo where W_ID=1"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
response.write ""& rs("W_Fax") &""
rs.close
set rs=nothing
end sub
%>