ly.asp

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

<!--#include file="Inc/oConn.asp"-->
<!--#include file="Inc/Info.asp"-->
<!--#include file="Inc/Page.asp"-->
<!--#include file="Inc/Public.asp"-->
<%
On Error Resume Next 
Dim xjh,action
xjh = RQuery("xjh")
action = RQuery("action")
Call PHead("我有问题")
If Action="AddSave" Then Call AddSave()
If xjh&""<>"" then
	Call listface()
Else
	Call searchface()
End If
Call HWaiting()
Call PFoot()
If Err Then Call ShowErrs()

Sub listFace()
	Dim objRs,strSQL,MyPage,i
	strSQL = "select count(*) from sTable where 学籍号='"&xjh&"'"
	i = oConn.Execute(strSQL)(0)
	If i=0 Then 
		Set objRs = Nothing
		Call JavaScript("alert('你输入的学籍号不正确，没有资料存在！！');location.href='?'")
		Response.End
	End If 
	strSQL = "select qID,qDate,qTime,问题内容,回复内容,回复人,aDateTime,姓名 from qTable,sTable where sTable.学籍号=qTable.学籍号 and sTable.学籍号='"&xjh&"' order by qID DESC"
	%>
	<span class="thetitle">你的问题列表</span>
	<hr size="1" color="#cccccc" />
	<div style="float:left;width:56%">
	<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)%></td>
			<td width="15%" class="thead">提问时间</td>
			<td width="35%"><%=objRs(1)&" "&objRs(2)%></td>
		</tr>
		<tr class="tbody">
			<td colspan="4" style="word-break:break-all"><%=objRs(3)%></td>
		</tr>
		<%If Not IsNull(objRs(4)) Then %>
		<tr class="tbody">
			<td align="center"><%=objRs(5)%></td>
			<td colspan="3" style="word-break:break-all"><%=objRs(4)%><hr size="1" color="#f5f5f5" />于 <%=objRs(6)%> 回复</td>
		</tr>
		<%
		End If
			objRs.MoveNext
			If objRs.Eof Then Exit For
		Next
	Else
	%>
		<tr><td colspan="4" class="tbody" height="60" align="center">你没提交任何问题</td></tr>
	<%
	End If 
	%>
	<tr><td colspan="4" class="tbody"><%=MyPage.ShowPage()%></td></tr>
	</table>
	</div>
	<%
	Set MyPage = Nothing
	Set objRs = Nothing
	Call AddFace(xjh)
End Sub 

Sub AddFace(XJBM)
	Dim xsxm
	xsxm = oConn.Execute("select 姓名 from sTable Where 学籍号='"&xjbm&"'")(0)
	%>
	<div style="float:right;width:43%;">
	<table width="100%" cellpadding="5" cellspacing="1" align="center" class="table1">
		<form method="post" action="?Action=AddSave" onsubmit="return checkF()">
		<tr class="tbody">
			<td width="15%" class="thead">提 问 人</td>
			<td width="35%"><%=XSXM%><input type="hidden" name="xj" value="<%=XJBM%>"></td>
			<td width="15%" class="thead">学籍编码</td>
			<td width="35%"><%=xjbm%></td>
		</tr>
		<tr class="tbody">
			<td colspan="4"><textarea name="问题内容" rows="5" cols="54"></textarea></td>
		</tr>
		<tr class="tbody">
			<td colspan="4" align="center"><input id="btn" type="submit" value="提交问题" /> <input type="reset" value="重新填写" /></td>
		</tr>
		</form>
	</table>
	</div>
	<script type="text/javascript">
	<!--
	function checkF()
	{
		var q = document.all.问题内容.value
		if (q==""||q.length<10)
		{
			alert('你没有输入内容或输入的内容太少，最多只能提交250个文字！');
			document.all.问题内容.focus();
			return false;
		}
		else
		{
			document.all.btn.disabled=true;
			document.all.btn.value='正在保存...';
		}
	}
	//-->
	</script>
	<%
End Sub 

Sub AddSave()
	Dim strSQL,xjbm,WT
	xjbm = FQuery("xj")
	WT = FQuery("问题内容")
	strSQL = "insert into qTable (问题内容,学籍号,qIP) values ('"&Left(WT,250)&"','"&xjbm&"','"&GetIP()&"')"
	oConn.Execute(strSQL)
	Call SaveLog(xjbm,"我有问题","提交问题成功")
	Call JavaScript("location.href='?xjh="&xjbm&"'")
End Sub 

Sub searchface()
	Print "<div class='lface' style='text-align:center'>"
	Print "<div class='thetitle' style='text-align:left'>我有问题</div>"
	Print "<hr size='1' color='#b8b8b8'/><br />"
	Print "<form method='get' name='Search' onsubmit=""return checkF()"">"
	Print "学籍号：<input type='text' name='xjh' size='17'><br /><br />"
	Print "<hr size='1' color='#b8b8b8'/>"
	Print "<input type='submit' id='btn' value='我要提问'>&nbsp;&nbsp;&nbsp;&nbsp;"
	Print "<input type='reset' value='重新填写'>"
	Print "</form>"
	Print "<div style='text-align:left'>"
	Print "<ol>欢迎使用我有问题系统..."
	Print "<li>你要提交问题或查看你已经提交的问题，请输入你的学籍号。"
	Print "</ol>"
	Print "</div>"
	Print "<div align='left' class='footcopy'>&copy;2007 XMSky</div>"
	Print "</div>"
%>
<script language="JavaScript">
<!--
function checkF()
{
	var k = document.forms[0].xjh.value;
	if (k!="")
	{
		w();
		document.forms[0].btn.value="正在查询，请耐心等待...";
		document.forms[0].btn.disabled=true;
	}
	else
	{
		window.alert('你必须输入正确的学籍号方可进行！');
		document.forms[0].xjh.focus();	
		return false;
	}
}
//-->
</script>
<%
End Sub
%>