📄 sturuslist.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.

💻 ASP

字号:

<% 
Response.Buffer = True 
Response.ContentType = "application/vnd.ms-excel" 
Response.AddHeader "content-disposition", "inline; filename =Sheet.xls"

%> 
<html> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title>Untitled Document</title> 
</head> 

<body> 
<%
 response.write "<table width='650' border='1' cellspacing='0' cellpadding='0'>"
    response.write "<tr><td height='20' width='100'>a"
   response.write "</td><td width='200'>b" 
   response.write "</td><td width='100'>c"
   response.write "</td><td width='200'>d"
   response.write "</td><td width='100'>e"
   response.write "</td><td width='50'>f" 
   response.write "</td><td width='100'>g"
   response.write "</td></tr>"
La=request.form("La")'班级
Lb=request.form("Lb")'学期
Lc=request.form("Lc")'课程
Ld=request.form("Ld")'老师
Le=request.form("Le")'成绩类别

lon=Session("sqlstring")
lon = Session("sqlstring")
lon = lon & ";database=" & Session("sqlName")
WeekaaLon = "driver={sql server};" & lon
Set connLon = Server.CreateObject("ADODB.Connection")
connLon.Open WeekaaLon
   Set rs = Server.CreateObject("Adodb.RecordSet")
   sql = "Select * From Student where b='"& La &"'order by a desc"
   rs.Open sql, Connlon, 1, 3
   Do While Not rs.EOF
   response.write "<tr><td height='30'>"& rs("c")
   response.write "</td><td>" & La
   response.write "</td><td>" & Lb
   response.write "</td><td>" & Lc
   response.write "</td><td>" & Ld
   response.write "</td><td>&nbsp;" 
   response.write "</td><td>" & Le
   response.write "</td></tr>"
   
   rs.MoveNext
   Loop
    response.write "</table>"
 %>

</body> 
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -