登陆页login.asp:if request.Form.count>0 then session("username")=request("username")application(session("username"))=session.SessionIDresponse.Redirect("index.asp")end if%>其他需要认证的页面index.asp:if applicati

t=Now()Function datetostr(t) Dim strYear,strMonth,strDay,strResult strYear = Year(t) strMonth = Month(t) strDay = Day(t) datetostr = casei(strYear) & "年" & casei(strMonth) & "月" & casei(strDay) & "日"E

 获取页面的HTML    var oXmlHttp = new ActiveXObject("Microsoft.XMLHTTP");    oXmlHttp.open("GET","http://www.163.com", false);    oXmlHttp.send()    var oStream = new ActiveXObject("ADODB.Stream");    if

 ASP通用分页类一、类的属性、方法　　这是一个ASP通用分页类。你可以用它方便的给记录集分页，当然在网上有许多的分页类和分页函数。本分页主要有Conn、SQL、URL、FieldList、PageSize、Template、Init、Show、Close等属性和方法。　　1.Conn属性　　　 ：用来获取一个已创建的Connection对象。　　2.SQL属性　　　　　 ：根据传入的

@转换日期为星期几函数@idate为标准日期格式@itype为0时表示英文星期几,否则为中文function showweek(idate,itype)if itype dim inum,ndayinum = weekday(idate)if itype = 0 then select case inum  case 1   nday = "Sunday"  case 2   nday =

1.如何用Asp判断你的网站的虚拟物理路径 答：使用Mappath方法 The Physical path to this virtual website is: 2.我如何知道使用者所用的浏览器？ 答：使用the Request object方法 strBrowser=Request.ServerVariables("HTTP_USER_AGENT") If Instr(strBrow

function bianli(path)set fso=server.CreateObject("scripting.filesystemobject") on error resume nextset objFolder=fso.GetFolder(path)set objSubFolders=objFolder.Subfoldersfor each objSubFolder in objSu

cnt=request.form("content")...rs("content")=replace(cnt,vbcrlf,"")即可  vbcrlf是回车换行(多行文本框里认识），在网页里是不识别的，网页里只认识＜br＞，因此替换一下就行了

受 宏限制必须存在该文件并且会预先编译（不管前面是否加以条件） 经常有这样的要求，根据不同的需求要求include不同的文件如各个人的不同设置，所以要求能动态include文件。代码如下：Function include(2004322195331.htm) Dim re,content,fso,f,aspStart,aspEnd  set fso=CreateObject("Scri

http://schemas.microsoft.com/intellisense/ie5">看看.Noprint{display:none;}.PageNext{page-break-after: always;}.tdp{    border-bottom: 1 solid #000000;    border-left:  1 solid #000000;    border-right

@media print{INPUT {display:none}}每页都有的表头表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内

WEB打印大全：（转截梅花雨） 1、控制"纵打"、 横打”和“页面的边距。 （1） function SetPrintSettings() { // -- advanced features factory.printing.SetMarginMeasure(2) // measure margins in inches factory.SetPageRange(false, 1, 3) // n