asp向服务器请求源码（支持asp的服务器）
本文目录一览：
ASP获取服务器及本地信息 代码如何编写
html
head
link href="../css.css" rel="stylesheet" type="text/css"
/head
body
table width="50%" border="0" align="center" cellpadding="0" cellspacing="0"
tr
td
table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#336699"
tr bgcolor="" align="center"
td height="20" colspan="2" class="7eca-9c78-bc00-0ae7 htd" font color="#FFFFFF"b服 务 器 的 配 置/b/font/td
/tr
tr
td width="40%" align="center" bgcolor="#336699" class="9c78-bc00-0ae7-1b21 htd"font color="#FFFFFF"检取ISAPIDLL的metabase路径/font/td
td align="center" bgcolor="#3366CC" class="bc00-0ae7-1b21-f645 htd"font color="#FFf000"%=Request.ServerVariables("APPL_MD_PATH")%/font/td
/tr
tr
td width="40%" align="center" bgcolor="#336699" class="0ae7-1b21-f645-612b htd"font color="#FFFFFF"路径信息/font/td
td align="center" bgcolor="#3366CC" class="1b21-f645-612b-a08f htd"font color="#FFf000"%=Request.ServerVariables("PATH_INFO")%/font/td
/tr
tr
td width="40%" align="center" bgcolor="#336699" class="f645-612b-a08f-95cf htd"font color="#FFFFFF"服务器IP地址/font/td
td align="center" bgcolor="#3366CC" class="612b-a08f-95cf-6d4d htd"font color="#FFf000"%=Request.ServerVariables("LOCAL_ADDR")%/font/td
/tr
tr
td width="40%" align="center" bgcolor="#336699" class="a08f-95cf-6d4d-9db0 htd"font color="#FFFFFF"显示执行SCRIPT的虚拟路径/font/td
td align="center" bgcolor="#3366CC" class="95cf-6d4d-9db0-7213 htd"font color="#FFf000"%=Request.ServerVariables("SCRIPT_NAME")%/font/td
/tr
tr
td width="40%" align="center" bgcolor="#336699" class="6d4d-9db0-7213-acbb htd"font color="#FFFFFF"返回服务器的主机名，DNS别名，或IP地址/font/td
td align="center" bgcolor="#3366CC" class="9db0-7213-acbb-9f1e htd"font color="#FFf000"%=Request.ServerVariables("SERVER_NAME")%/font/td
/tr
tr
td width="40%" align="center" bgcolor="#336699" class="507e-b60b-b456-9352 htd"font color="#FFFFFF"返回服务器处理请求的端口/font/td
td align="center" bgcolor="#3366CC" class="b60b-b456-9352-7eca htd"font color="#FFf000"%=Request.ServerVariables("SERVER_PORT")%/font/td
/tr
tr
td width="40%" align="center" bgcolor="#336699" class="b456-9352-7eca-9c78 htd"font color="#FFFFFF"协议的名称和版本/font/td
td align="center" bgcolor="#3366CC" class="9352-7eca-9c78-bc00 htd"font color="#FFf000"%=Request.ServerVariables("SERVER_PROTOCOL")%/font/td
/tr
tr
td width="40%" align="center" bgcolor="#336699" class="7eca-9c78-bc00-0ae7 htd"font color="#FFFFFF"服务器的名称和版本/font/td
td align="center" bgcolor="#3366CC" class="9c78-bc00-0ae7-1b21 htd"font color="#FFf000"%=Request.ServerVariables("SERVER_SOFTWARE")%/font/td
/tr
tr
td width="40%" align="center" bgcolor="#336699" class="bc00-0ae7-1b21-f645 htd"font color="#FFFFFF"服务器操作系统内核/font/td
td align="center" bgcolor="#3366CC" class="0ae7-1b21-f645-612b htd"font color="#FFf000"%=Request.ServerVariables("OS")%/font/td
/tr
tr
td width="40%" align="center" bgcolor="#336699" class="1b21-f645-612b-a08f htd"font color="#FFFFFF"脚本超时时间/font/td
td align="center" bgcolor="#3366CC" class="f645-612b-a08f-95cf htd"font color="#FFf000"%=Server.ScriptTimeout% 秒/font/td
/tr
tr
td width="40%" align="center" bgcolor="#336699" class="612b-a08f-95cf-6d4d htd"font color="#FFFFFF"服务器CPU数量/font/td
td align="center" bgcolor="#3366CC" class="a08f-95cf-6d4d-9db0 htd"font color="#FFf000"%=Request.ServerVariables("NUMBER_OF_PROCESSORS")% 个/font/td
/tr
tr
td width="40%" align="center" bgcolor="#336699" class="95cf-6d4d-9db0-7213 htd"font color="#FFFFFF"服务器解译引擎/font/td
td align="center" bgcolor="#3366CC" class="6d4d-9db0-7213-acbb htd"font color="#FFf000"%=ScriptEngine "/" ScriptEngineMajorVersion "."ScriptEngineMinorVersion"." ScriptEngineBuildVersion %/font/td
/tr
/table
table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"
tr
td height="20" colspan="2" align="center"
/td
/tr
tr
td height="20" colspan="2" class="9db0-7213-acbb-9f1e htd" align="center" bgcolor="#336699"
font color="#FFFFFF"b浏 览 器 信 息/b/font
/td
/tr
tr
td height="20" colspan="2" align="center" bgcolor="#336699"
%set browscap=server.createobject("mswc.browsertype")%
table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"
trtd width="40%" align="center" class="507e-b60b-b456-9352 htd"font color="#FFFFFF"浏览器类型/font/td
td align="center" bgcolor="#3366CC" class="b60b-b456-9352-7eca htd"font color="#FFf000"%=browscap.browser%/font/td/tr
trtd width="40%" align="center" class="b456-9352-7eca-9c78 htd"font color="#FFFFFF"浏览器版本/font/td
td align="center" bgcolor="#3366CC" class="9352-7eca-9c78-bc00 htd"font color="#FFf000"%=browscap.version%/font/td/tr
trtd width="40%" align="center" class="7eca-9c78-bc00-0ae7 htd"font color="#FFFFFF"是否支持表格/font/td
td align="center" bgcolor="#3366CC" class="9c78-bc00-0ae7-1b21 htd"font color="#FFf000"%=browscap.tables%/font/td/tr
trtd width="40%" align="center" class="bc00-0ae7-1b21-f645 htd"font color="#FFFFFF"是否支持ActiveX控件/font/td
td align="center" bgcolor="#3366CC" class="0ae7-1b21-f645-612b htd"font color="#FFf000"%=browscap.activexcontrols%/font/td/tr
trtd width="40%" align="center" class="1b21-f645-612b-a08f htd"font color="#FFFFFF"是否支持JavaApplets/font/td
td align="center" bgcolor="#3366CC" class="f645-612b-a08f-95cf htd"font color="#FFf000"%=browscap.javaapplets%/font/td/tr
trtd width="40%" align="center" class="612b-a08f-95cf-6d4d htd"font color="#FFFFFF"是否支持Javascript/font/td
td align="center" bgcolor="#3366CC" class="a08f-95cf-6d4d-9db0 htd"font color="#FFf000"%=browscap.javascript%/font/td/tr
trtd width="40%" align="center" class="95cf-6d4d-9db0-7213 htd"font color="#FFFFFF"是否支持Cookies/font/td
td align="center" bgcolor="#3366CC" class="6d4d-9db0-7213-acbb htd"font color="#FFf000"%=browscap.cookies%/font/td/tr
trtd width="40%" align="center" class="9db0-7213-acbb-9f1e htd"font color="#FFFFFF"是否支持框架/font/td
td align="center" bgcolor="#3366CC" class="507e-b60b-b456-9352 htd"font color="#FFf000"%=browscap.frames%/font/td/tr
trtd width="40%" align="center" class="b60b-b456-9352-7eca htd"font color="#FFFFFF"是否支持VBScript/font/td
td align="center" bgcolor="#3366CC" class="b456-9352-7eca-9c78 htd"font color="#FFf000"%=browscap.vbscript%/font/td/tr
/table
%set browscap=nothing%
/td
/tr
/table
table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"
tr
td height="20" colspan="2" align="center"
/td
/tr
tr
td height="20" colspan="2" class="9352-7eca-9c78-bc00 htd" align="center" bgcolor="#336699"
font color="#FFFFFF"b磁 盘 驱 动 器 信 息/b/font
/td
/tr
tr
td height="20" colspan="2"
%
function tran(driver)
select case driver
case 0:tran="设备无法识别"
case 1:tran="软盘驱动器"
case 2:tran="硬盘驱动器"
case 3:tran="网络硬盘驱动器"
case 4:tran="光盘驱动器"
case 5:tran="RAM虚拟磁盘"
end select
end function
set fso=server.createobject("scripting.filesystemobject")
%
table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#336699"
trtd class="7eca-9c78-bc00-0ae7 htd" align="center"font color="#FFFFFF"盘符/font/tdtd class="9c78-bc00-0ae7-1b21 htd" align="center"font color="#FFFFFF"类型/font/tdtd class="bc00-0ae7-1b21-f645 htd" align="center"font color="#FFFFFF"卷标/font/td
td class="0ae7-1b21-f645-612b htd" align="center"font color="#FFFFFF" 总计大小/font/tdtd class="1b21-f645-612b-a08f htd" align="center"font color="#FFFFFF"可用空间/font/tdtd class="f645-612b-a08f-95cf htd" align="center"font color="#FFFFFF"文件系统/font/td
td class="612b-a08f-95cf-6d4d htd" align="center"font color="#FFFFFF"序列号/font/tdtd class="a08f-95cf-6d4d-9db0 htd" align="center"font color="#FFFFFF"是否可用/font/tdtd class="95cf-6d4d-9db0-7213 htd" align="center"font color="#FFFFFF"路径/font/td
/tr
%
for each drv in fso.drives
response.write"tr"
response.write"td class=htd align=center bgcolor=#3366CCfont color=#FFf000" drv.driveletter "/font/td"
response.write"td class=htd align=center bgcolor=#3366CCfont color=#FFf000" tran(drv.drivetype) "/font/td"
response.write"td class=htd align=center bgcolor=#3366CCfont color=#FFf000" drv.volumename "/font/td"
response.write"td class=htd align=center bgcolor=#3366CCfont color=#FFf000" formatnumber(drv.totalsize/1024,0) "/font/td"
response.write"td class=htd align=center bgcolor=#3366CCfont color=#FFf000" formatnumber(drv.availablespace/1024,0) "/font/td"
response.write"td class=htd align=center bgcolor=#3366CCfont color=#FFf000" drv.filesystem "/font/td"
response.write"td class=htd align=center bgcolor=#3366CCfont color=#FFf000" drv.serialnumber "/font/td"
response.write"td class=htd align=center bgcolor=#3366CCfont color=#FFf000" drv.isready "/font/td"
response.write"td class=htd align=center bgcolor=#3366CCfont color=#FFf000" drv.path "/font/td"
next
%
/table
/td
/tr
/table
/td
/tr
/table
/body
/html
ASP代码是如何工作的?
用户在地址栏中请求一个asp程序。
浏览器向ASP服务器请求这个asp程序，而不是像html一样直接处理一个自身的html程序，不需要在服务器上的运行。
ASP程序中的服务器端脚本开始运行。
ASP程序连续的执行这个请求文件中的所有语句，然后生成一个HTML文件。
结果是，100％的纯HTML代码发送到客户端，所以我们在客户端看到的代码还是HTML，并不是ASP的源代码。这样做，就可以很少地考虑IE和Netscape 之间的区别了，而且我们也不怕别人看到我们的源代码！不过，我们只是不能看到ASP的源程序而已
怎样轻松获取网页的ASP源代码？
能查到。
1、由于现在微信号必须绑定bai手机号，加之在微信的使用过程中经常牵涉到手机号信息，所以个人的微信信息都在腾讯公司的服务器保存着。
2、公安机关如果是由于民事案件向腾讯公司申请查询数据的话，腾讯公司有理由不予配合，这牵涉到个人隐私。
3、只有牵涉到重大刑事案件以及危害国家安全的案件时，腾讯公司才有义务配合公安机关调查。
4、如果微信内容涉及刑事案件，特别是重要的刑事案件侦查线索，县级以上公安机关可以对这个手机号码采取技术侦查手段。
5、这个手段可以追踪你手机的位置既是关机也没有用，一样能追踪到，监听你的通话，拦截你的微信。
6、在启动技术侦查手段之前的一定时间内具体多少时间不清楚，你的通话和微信内容无论收发都会被保存到一个为了提供通信服务公司的计算机上，所以要查出短信和通话内容并不困难。
扩展资料
根据公安机关办理刑事案件程序规定第254条，技术侦查措施适用的范围为以下案件：
1、危害国家安全犯罪、恐怖活动犯罪、黑社会性质的组织犯罪、重大毒品犯罪案件。
2、故意杀人、故意伤害致人重伤或者死亡、强奸、抢劫、绑架、放火、爆炸、投放危险物质等严重暴力犯罪案件。
3、集团性、系列性、跨区域性重大犯罪案件。
4、利用电信、计算机网络、寄递渠道等实施的重大犯罪案件，以及针对计算机网络实施的重大犯罪案件。
5、其他严重危害社会的犯罪案件，依法可能判处七年以上有期徒刑的。
6、公安机关追捕被通缉或者批准、决定逮捕的在逃的犯罪嫌疑人、被告人，可以采取追捕所必需的技术侦查措施。
asp客户端如何请求服务端的数据
可以。AJAX就是干这个的！
ASP代码本身是不能实现定时功能的（你一定要用ASP的代码的话，写出来的是个死循环。。。），只能借助脚本了。
去看下AJAX的网页应用，保证能满足你的需求。
ASP中如何实现无刷请求服务器？
======index.asp===========
%
Dim conn,rs
Dim connstr
Dim sqlCmd
'创建数据库连接对象并打开
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source=" server.mappath("mydb.mdb")
conn.open connstr
'用于从数据库中获取数据的sql语句
sqlCmd="select * from user_msg"
'创建数据集对象
set rs=server.createobject("adodb.recordset")
'从数据库中获取数据
rs.open sqlCmd,conn,1,1
%
!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
html
head
titleAjax GuestBook/title
style type="text/css"
!--
body { font-size:9pt;text-align:center;}
dl { margin:0;}
dt { background-color:#666;color:#fff;margin:1px;padding:0 3px;}
dd { margin:3px;}
div { margin:auto;line-height:150%;text-align:left;width:400px;border:1px solid #666;}
#postBox { margin-top:10px;}
dd.button { text-align:center;}
dd.button input { margin:0 20px;}
//--
/style
script type="text/javascript"
!--
//将用户输入异步提交到服务器
function ajaxSubmit(){
//获取用户输入
var title=document.forms[0].title.value;
var author=document.forms[0].author.value;
var content=document.forms[0].content.value;
if (title=="")
{alert("1不能为空");}
else
{
if (author=="")
{alert("2不能为空");}
else
{
if (content=="")
{alert("3不能为空");}
else
{
//创建XMLHttpRequest对象
var xmlhttp;
try{
xmlhttp=new XMLHttpRequest();
}catch(e){
xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
}
//创建请求结果处理程序
xmlhttp.onreadystatechange=function(){
if (4==xmlhttp.readyState){
if (200==xmlhttp.status){
var date=xmlhttp.responseText;
addToList(date);
}else{
alert("error");
}
}
}
//打开连接，true表示异步提交
xmlhttp.open("post", "ajaxAdd.asp", true);
//当方法为post时需要如下设置http头
xmlhttp.setRequestHeader('Content-type','application/x-www-form-urlencoded');
//发送数据
xmlhttp.send("title="+escape(title)+"author="+escape(author)+"content="+escape(content));
}
//将用户输入显示到页面
function addToList(date){
//获取留言列表div容器
var msg=document.getElementById("msgList");
//创建dl标记及其子标记
var dl=document.createElement("dl");
var dt=document.createElement("dt");
var dd=document.createElement("dd");
var dd2=document.createElement("dd");
//将结点插入到相应的位置
msg.insertBefore(dl,msg.firstChild);
dl.appendChild(dt);
dl.appendChild(dd);
dl.appendChild(dd2);
//填充留言内容
dt.innerHTML="标题"+document.forms[0].title.value;
dd.innerHTML="作者"+document.forms[0].author.value+" 内容："+content;
dd2.innerHTML=document.forms[0].content.value;
//清空用户输入框
document.forms[0].title.value="";
document.forms[0].author.value="";
document.forms[0].content.value="";
}
}
}
}
//--
/script
/head
body
div id="msgList"
%
'遍历记录集生成Html代码，从而将数据显示于页面
while not rs.eof
%
dl
dt标题：%=rs("title")%/dt
dd作者：%=rs("author")% 内容：%=rs("content")%/dd
/dl
%
rs.movenext
wend
'关闭数据库连接及记录集，释放资源
rs.close
conn.close
set rs=nothing
set conn=nothing
%
/div
div id="postBox"
form name="theForm" method="post"
dl
dt发表您的留言/dt
dd标题：input type="text" maxlength="150" size="45" name="title"//dd
dd作者：input type="text" maxlength="50" size="45" name="author"//dd
dd内容：textarea rows="10" cols="45" name="content"/textarea/dd
dd class="6d4d-9db0-7213-acbb button"
input type="button" onClick="ajaxSubmit()" value="提交"/
input type="reset" value="重填"/
/dd
/dl
/form
/div
/body
/html
==============ajaxAdd.asp====================
%
Dim conn,rs
Dim connstr
Dim sqlCmd
'创建数据库连接对象并打开
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source=" server.mappath("mydb.mdb")
conn.open connstr
'用于从数据库中获取数据的sql语句
sqlCmd="select * from user_msg"
'创建数据集对象
set rs=server.createobject("adodb.recordset")
title=request.Form("title")
author=request.Form("author")
content=request.Form("content")
If title="" Then
title=Request.QueryString("title")
End If
If author="" Then
author=Request.QueryString("author")
End If
If content="" Then
content=Request.QueryString("content")
End If
'从数据库中获取数据
rs.open sqlCmd,conn,1,2
rs.addnew
rs("title")=title
rs("author")=author
rs("content")=content
rs("date")=Now()
rs.update
rs.close
conn.close
%
共三个文件.分别为:index.asp;ajaxAdd.asp;myDB.mdb
两个asp文件的源码.我已经贴出来了.数据库文件.需要自己创建.只要安装了OFFICE ACCESS就可以创建如下数据库
mydb.mdb创建user_msg表
表结构如下:
--------------
ID 自动编号 (长整型/递增)
title 文本
author 文本
content 文本
date 日期/时间
