ly_gl.asp

轩圆学生信息管理系统 081029修正了成绩数据浏览时查看单个学生成绩时总分排名显示表格问题。 //===============================================

<!--#include file="Inc/Check.asp"-->
<!--#include file="Inc/oConn.asp"-->
<!--#include file="Inc/Info.asp"-->
<!--#include file="Inc/Page.asp"-->
<!--#include file="Inc/Public.asp"-->
<%
On Error Resume Next 
Call CheckAdmin(",1,",","&Session("JB")&",")
Dim action,id,pageid
action = RQuery("action")
id = RQuery("id")
pageid=RQuery("page")
If pageid&""="" Then pageid=1
Call PHead("我有问题")
If Action="AddSave" Then Call AddSave()
If Action="DelSave" Then Call DelSave()
Call listface()
Call HWaiting()
Call PFoot()
If Err Then Call ShowErrs()

Sub listFace()
	Dim objRs,strSQL,MyPage,i
	strSQL = "select qID,qDate,qTime,问题内容,回复内容,回复人,aDateTime,姓名,qTable.学籍号 from qTable,sTable where sTable.学籍号=qTable.学籍号 order by qID DESC"
	%>
	<span class="thetitle">留言列表</span>
	<hr size="1" color="#cccccc" />
	<%If id&""<>"" Then %>
	<div style="float:left;width:56%">
	<%else%>
	<div style="width:100%">
	<%End if%>
	<table width="100%" cellpadding="5" cellspacing="1" align="center" class="table1">
	<%
	Set MyPage = New xdownpage
	MyPage.GetConn = oConn
	MyPage.GetSQL = strSQL
	MyPage.PageSize = 6
	Set objRs = MyPage.GetRs()
	If Not objRs.Eof Then
		For i = 1 To MyPage.PageSize
	%>
		<tr class="tbody">
			<td width="15%" class="thead">提 问 人</td>
			<td width="35%"><%=objRs(7)%>&nbsp;&nbsp;<%=objRs(8)%></td>
			<td width="15%" class="thead">提问时间</td>
			<td width="30%"><%=objRs(1)&" "&objRs(2)%></td>
			<td style="padding:1px;"><input id="d<%=objRs(0)%>" onclick="javascript:deleteid(<%=objRs(0)%>)" type="button" value="删除" /></td>
		</tr>
		<tr class="tbody">
			<td colspan="5" style="word-break:break-all"><%=objRs(3)%></td>
		</tr>
		<%If Not IsNull(objRs(4)) Then %>
		<tr class="tbody">
			<td style="padding:1px;"><input <%If CStr(objRs(0))=id Then response.write "disabled"%> onclick="location.href='?action=Edit&id=<%=objRs(0)%>&Page=<%=PageID%>'" type="button" value="修改回复" /></td>
			<td colspan="4" style="word-break:break-all"><%=objRs(4)%><hr size="1" color="#f5f5f5" />由 <%=objRs(5)%> 在 <%=objRs(6)%> 回复</td>
		</tr>
		<%
		Else
		%>
		<tr class="tbody">
			<td style="padding:1px;"><input <%If CStr(objRs(0))=id Then response.write "disabled"%> onclick="location.href='?action=Add&id=<%=objRs(0)%>&Page=<%=PageID%>'" type="button" value="回复问题" /></td>
			<td colspan="4"></td>
		</tr>
		<%
		End If
			objRs.MoveNext
			If objRs.Eof Then Exit For
		Next
	Else
	%>
		<tr><td colspan="5" class="tbody" height="60" align="center">暂无任何问题</td></tr>
	<%
	End If 
	%>
	<tr><td colspan="5" class="tbody"><%=MyPage.ShowPage()%></td></tr>
	</table>
	</div>
	<script type="text/javascript">
	<!--
		function deleteid(delid)
		{
			if (confirm("你确定要删除此条问题内容吗？？"))
			{
				document.getElementById('d'+delid+'').disabled=true;
				location.href='?Action=DelSave&ID='+delid+'&Page=<%=PageID%>';
			}
		}
	//-->
	</script>
	<%
	Set MyPage = Nothing
	Set objRs = Nothing
	If id&""<>"" And IsNumeric(id) Then
		If action="Add" Then Call AddFace(id,"Add")
		If action="Edit" Then Call AddFace(id,"Edit")
	End If 
End Sub 

Sub AddFace(QID,method)
	If method="Edit" Then
		Dim HF
		HF = oConn.Execute("select 回复内容 from qTable where qid="&qid&"")(0)
	End If 
	%>
	<div style="float:right;width:43%;">
	<table width="100%" cellpadding="5" cellspacing="1" align="center" class="table1">
		<form method="post" action="?Action=AddSave&ID=<%=QID%>&Page=<%=PageID%>" onsubmit="return checkF()">
		<tr class="tbody">
			<td><textarea name="回复内容" rows="5" cols="54"><%=hf%></textarea></td>
		</tr>
		<tr class="tbody">
			<td align="center"><input id="btn" type="submit" value="提交回复" /> <input type="reset" value="重新填写" /> <input type="button" onclick="location.href='?Page=<%=PageID%>'" value="取消回复" /></td>
		</tr>
		</form>
	</table>
	</div>
	<script type="text/javascript">
	<!--
	function checkF()
	{
		var q = document.all.回复内容.value
		if (q=="")
		{
			alert('你没有输入内容，最多只能提交250个文字！');
			document.all.回复内容.focus();
			return false;
		}
		else
		{
			document.all.btn.disabled=true;
			document.all.btn.value='正在保存...';
		}
	}
	//-->
	</script>
	<%
End Sub 

Sub AddSave()
	Dim strSQL,WT
	WT = FQuery("回复内容")
	strSQL = "update qTable set 回复内容='"&Left(WT,250)&"',回复人='"&Session("XM")&"',aDateTime='"&Now&"' where qID="&id&""
	oConn.Execute(strSQL)
	Call SaveLog(Session("XM"),"我有问题","回复问题成功")
	Call JavaScript("location.href='?Page="&PageID&"'")
End Sub 

Sub DelSave()
	Dim strSqL
	strSqL = "delete from qTable where qid="&id&""
	oConn.Execute(strSQL)
	Call SaveLog(Session("XM"),"我有问题","删除问题成功")
	Call JavaScript("location.href='?Page="&PageID&"'")
End Sub
%>