queryxml.asp

来自「在线考试系统」· ASP 代码 · 共 19 行

<!---#include file="conn.asp"--->
<%
Response.ContentType = "text/XML"
 '防止用户浏览器缓存页面
 response.buffer=true              '设置web服务器使用缓冲页
 response.expiresabsolute=now()-1  '指定页面的过期时间(单间日期时间)
 response.expires=0  
TestPaperName=request.QueryString("TestPaperName")
StuId=Session("StuId")
sql="select KeGuanScore,ZhuGuanScore,Score from StuTestPaper where StuId= "&StuId&" and TestPaperName='"&TestPaperName&"'"
set rst=conn.execute(sql)
'Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM") 
'response.Write("<Query><KeGuanScore>"&rst("KeGuanScore")&"</KeGuanScore><ZhGuanScore>"&rst("ZhGuanScore")&"</ZhGuanScore><Score>"&rst("Score")&"</Score></Query>")
response.Write("<Query><KeGuanScore>"&rst("KeGuanScore")&"</KeGuanScore><ZhuGuanScore>"&rst("ZhuGuanScore")&"</ZhuGuanScore><Score>"&rst("score")&"</Score></Query>")
  rst.close()
  conn.close()
  set rst=nothing
  set conn=nothing
%>