function.asp

asp+sql的教室申请系统,可以完成一个学期的教室分配情况

<%
Function YuDFlag(CSID,ZhouCi,ShowWeek,ShowNum)
	Dim rs,MyArray,MyDate,MyDateS,AddNum
	Set rs = Server.CreateObject("ADODB.Recordset")
    sql="Select * From CS_KBiao Where CSID="&CSID&" And ZhouCi="&ZhouCi&" ORDER BY ID DESC"
	rs.open sql,conn,1,1
	
	MyArray=Split(rs(ShowWeek),",")
	
	Select Case ShowWeek
		Case "Mon"
			AddNum=0
		Case "Tue"
			AddNum=1
		Case "Wed"
			AddNum=2
		Case "Thi"
			AddNum=3
		Case "Fri"
			AddNum=4
		Case "Sat"
			AddNum=5
		Case "Sun"
			AddNum=6
	End Select
	
	MyDate=DateAdd("d",JianGeDate, Date())
	MyDateS=DateAdd("d",AddNum,rs("STime"))

	'CStr(Mid(rs(ShowWeek),21,1)) = CStr("0")
	'------△没人申请-------------------------------------------------------
	'------☆有人申请，没确认-----------------------------------------------
	'------★有人申请，已确认-----------------------------------------------
	If MyDateS>MyDate Then
		If MyArray(ShowNum-1)="0" Then Response.Write("<a href=ShenQing.asp?ID="&rs("ID")&"&ShowWeek="&ShowWeek&"&ShowNum="&ShowNum&"&CSID="&CSID&" target='main'>△</a>")
	
	End If
		If Left(MyArray(ShowNum-1),1)="A" Then Response.Write("<a href=ViewRetail.asp?ID="&Replace(MyArray(ShowNum-1),"A","")&"&ShowWeek="&ShowWeek&"&ShowNum="&ShowNum&"&CSID="&CSID&" target='main'>☆</a>")
		If Left(MyArray(ShowNum-1),1)<>"A" And Left(MyArray(ShowNum-1),1)<>"0" Then Response.Write("<a href=ViewRetail.asp?ID="&Replace(MyArray(ShowNum-1),"A","")&"&ShowWeek="&ShowWeek&"&ShowNum="&ShowNum&"&CSID="&CSID&" target='main'>★</a>")

	
	rs.close
	set rs=Nothing
End Function

Function ShowCSName(CSID)

	Dim rs
	Set rs = Server.CreateObject("ADODB.Recordset")
    sql="Select * From CS_CSInfo Where ID="&CSID
	rs.open sql,conn,1,1
	
	ShowCSName=rs("cs_mingcheng")
	
	rs.close
	set rs=Nothing

End Function

Function ShowCSSB(CSID)

	Dim rs
	Set rs = Server.CreateObject("ADODB.Recordset")
    sql="Select * From CS_CSInfo Where ID="&CSID
	rs.open sql,conn,1,1
	
	ShowCSSB=rs("cs_shebei")
	
	rs.close
	set rs=Nothing

End Function

Function UpdateKBiao(KBID,ShowWeek,ShowNum,SQID)
	
	Dim rs,WeekInfo,MyArray1,MyArray2
	Set rs = Server.CreateObject("ADODB.Recordset")
    sql="Select * From CS_KBiao Where ID="&KBID
	rs.open sql,conn,1,1
	
	MyArray1=Split(ShowNum,",")
	MyArray2=Split(rs(ShowWeek),",")

	For i=0 to Ubound(MyArray1)
		MyArray2(MyArray1(i)-1)="A"&SQID
	Next
	
	WeekInfo=""
	
	For i=0 to Ubound(MyArray2)
		If WeekInfo<>"" Then WeekInfo=WeekInfo&","
		WeekInfo=WeekInfo&MyArray2(i)
	Next
	 
	sql="Update CS_KBiao Set "&ShowWeek&"='"&WeekInfo&"' Where ID="&KBID
	conn.execute(sql)
	
	'UpdateKBiao=WeekInfo
	
	rs.close
	set rs=Nothing

End Function
%>