鉴于大家对ASP类作品十分关注，我们编辑小组在此为大家搜集整理了“基于ASP学校学生信息系统的设计”一文，供大家参考学习
四、主要功能模块设计 （一）主页前后设计 1、学生信息查询模块设计 学生信息查询模块设计的主要功能是用来完成用户登陆功能的。在用户输入正确的要查询的值和验证码后便登陆成功。 其主要代码如下： <% For j=1 to 4 I=suijishu() Num= Num + Cstr(I) Response.Write("<img src=Images/Num/" + Cstr(I) + ".gif>") Next %> 图4-1学生信息查询 2、学生留言板模块设计 Search.asp页面是学生留言板，用来显示学生的个人详细信息的，同时还可以给学生进行留言。 其主要代码如下： <% Do while Not Rs.Eof %> <tr bgcolor="#FFFFFF"> <td height="30"> <%=Rs("UNumber")%></td> <td> <%=Rs("UserName")%></td> td><a href="Search.asp?UserNum=<%=Rs("UNumber")%>">详细信息</a></td> <td><a href="RepUser.asp?UserNum=<%=Rs("UNumber")%>&UserName=<%=Rs("UserName")%>" target="_blank">给他/她留言</a></td> </tr> <% Rs.MoveNext Loop %> </table> <% End Sub %> <%SubShowInfo() UNumber=ReplaceBadChar(Trim(Request.QueryString("UserNum"))) StrSql="Select * From XcUserInfo where UNumber=''" & UNumber & "''" Set Rs=Conn.execute(StrSql) %> 学生留言板页面如下： 图4-2学生留言板 （二）后台主要设计 AdminIndex.asp此页用于进入后台管理主页面。 主要代码： <td height="25" align="center" class="TrTop">欢迎进入毕业生信息查询管系统</td> 1、登陆日志模块设计 系统启动后，将首先出现如图4-1所示的用户登陆窗体，用户首先输入用户名，然后输入密码。登陆的就是“登陆日志模块的设计”。主要功能是浏览毕业生登陆的详细信息。具体包括用户，登陆时间，本机IP地址及本机的操作系统等相关信息。还可以对日志执行删除操作如图4-3所示。 图4-3登陆日志 其主要代码： <td height="25" align="center" class="TrTop">系统登陆日志</td> <td height="30" align="center"><table width="100%" border="0" cellpadding="0" cellspacing="1" class="TableAll"> <tr align="center" bgcolor="#FFFFFF"> <td width="9%">序号</td> <td width="14%" height="25">用户</td> <td width="25%">登陆时间</td> <td width="21%">登陆IP</td> <td width="16%">操作系统</td> <td width="15%">权限</td> </tr> <% Str="Select * From XcUserLog Order By ID Desc" Set Rs=Conn.execute(Str) I=1 Do while Not Rs.eof %> <tr align="center" bgcolor="#FFFFFF"> <td><%=I%></td> <td height="25"><%=Rs("LogUser")%></td> <td><%=Rs("LogTime")%></td> <td><%=Rs("LogIP")%></td> <td><%=Rs("LogSys")%></td> <td><%=UserToStr(Rs("LogOpr"))%></td> </tr> <% I=I+1 Rs.MoveNext Loop %> </table></td> </tr> </table> <table width="90%" border="0" cellpadding="0" cellspacing="1" class="w9pt"> <tr> <td height="30" align="center"><input type="button" name="Submit" value="清除登陆日志" onClick="Clr()"> <script language="javascript"> function Clr() {if(confirm(''确实要删除登陆日志吗？'')) {window.location.href=''AdminLog.asp?Del=ok'';} } </script> 6) AdminDep.asp 1、专业管理模块设计 专业管理模块设计主要用于添加和删除学生的专业信息，而且可以直接显示添加的学生专业信息等内容。 主要代码； <% UserName=ReplaceBadChar(Request.Form("UserName")) UserPwd=ReplaceBadChar(Request.Form("UserPwd")) IF UserName<> "" And UserPwd <> "" Then Call IsOpr() StrSql="Select * From XcDepartMent Where DepName=''" & UserName & "''" Set Rsu=Conn.Execute(StrSql) IF Rsu.Eof Then ''------------------------------------------ StrSql="Insert Into XcDepartment(DepName,DepMaster) Values(''" StrSql=StrSql & UserName & "'',''" & UserPwd & "'')" Conn.execute(StrSql) ''------------------------------------------ Call UserOpr(" 增加专业：" & UserName) Call ShowMessAge("增加专业成功！","AdminDep.asp") Else ShowMess("专业名称已经存在，请更换名称！") End IF End IF ''=========================================== IF Request.QueryString("DelID")<>"" then Call IsOpr() Str="Delete From XcDepartment where ID=" & Cint(request.QueryString("DelID")) Conn.execute(Str) Username=Request.QueryString("Username") Call UserOpr(" 删除专业：" & UserName) Call ShowMessAge("删除专业成功！","AdminDep.asp") End if %>  |
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
