server.asp

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

<!--#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 where stuidh='"&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
end if
rs.close
set rs=nothing
Response.Write(escape(stuname))
Response.Write(escape(","))
Response.Write(escape(stunj))
Response.Write(escape(","))
Response.Write(escape(stubj))
%>