servermodicj.asp

来自「成绩管理代码 采取的研究方法：采用网络编程技术」· ASP 代码 · 共 33 行

<!--#include file="dataconn.asp"-->
<!--#include file="Admin_IsLogin.asp" -->
<%
Response.ContentType = "text/html"
Response.Charset = "GB2312" 
stuidh = unescape(Request.querystring("stuidh"))
sql = "select * from stuinfo,"&session("dbname")&" where stuinfo.stuidh='"&stuidh&"' and stuinfo.stuidh="&session("dbname")&".stuidh"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,1
if rs.eof and rs.bof then
stuname = "无此人成绩"
stunj = "请重录"
else
stuname = rs("stuname").value
stunj = rs("stunj").value
stubj = rs("stubj").value
Response.Write(escape(stuname))
Response.Write(escape(","))
Response.Write(escape(stunj))
Response.Write(escape(","))
Response.Write(escape(stubj))
zdcount=rs.fields.count-1 
for k=25  to  zdcount
'response.write rs.fields(k).name&"<br>"
subject=rs.fields(k).name
subject=rs(rs.fields(k).name).value
Response.Write(escape(","))
response.write subject
next
end if

rs.close
set rs=nothing%>