📄 student.asp

📁 本系统基于WEB

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>学生信息页面|毕业设计选题系统</title>
<link href="../css/Style.css" rel="stylesheet" type="text/css" />
</head>

<BODY leftMargin=0 topMargin=0 marginwidth="0">
  <!--#include file=../top.asp-->
  <!--#include file=top.asp-->
<div align="center"><td><table width="768" border="0" bgcolor="#FFFFFF"><tr><td><div align="left">
<%
Dim SID
SID = Request.QueryString("id")
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.student where stu_id='"&SID&"'"
conn.CursorType = 0
conn.LockType = 1
conn.Open()
%>
<p>此学生的信息如下：</p>
<p>
学号：<% Response.Write(conn("stu_id")) %><br>
姓名：<% Response.Write(conn("stu_name")) %><br>
性别：<% Response.Write(conn("stu_sex")) %><br>
专业：<% Response.Write(conn("stu_speciality")) %><br>
班级：<% Response.Write(conn("stu_class")) %><br>
电话：<% Response.Write(conn("stu_tel")) %><br>
邮件：<% Response.Write(conn("stu_email")) %><br>
QQ：<% Response.Write(conn("stu_qq")) %>
</p>
  <% 
  Dim works
  works=conn("stu_works")
  conn.Close()
  conn.Source = "select * from dbo.works where works_id='"&works&"'"
  conn.CursorType = 0
  conn.LockType = 1
  conn.Open()
  %>
  <p>所选题目：<% Response.Write(conn("works_title")) %></p>
</div></td></tr></table></td></div>
  <!--#include file=botton.asp-->
  <!--#include file=../botton.asp-->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -