zhenze-CSDN博客

原创 ASP程序中同一个用户不允许同时登陆两次选择自 iuhxq 的 Blog

登陆页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

2004-11-15 09:20:00 611

原创将阿拉伯数字日期转换为中文数字日期格式转自 sfchina 的 Blog

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

2004-11-15 09:18:00 1041

原创常用ASP代码转自 Newrocky 的 Blog

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

2004-11-15 09:15:00 673

原创 ASP分页代码，已经写成类了，值得参考转自 cuiwl 的 Blog

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

2004-11-15 09:12:00 1251

原创 ASP常用函数收藏（转自qihboy 的 Blog ）

@转换日期为星期几函数@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 =

2004-11-15 09:06:00 609

原创 ASP常用代码收藏

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

2004-10-18 11:03:00 1321

原创 fso遍历某一目录下所有文件的函数

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

2004-10-18 11:02:00 922

原创 textarea提交后换行。。。

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

2004-10-18 11:00:00 973

原创动态include文件

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

2004-10-18 10:41:00 614

原创 WEB打印代码（2）

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

2004-10-18 10:34:00 620

原创 WEB打印代码（1）

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

2004-10-18 10:33:00 745

原创控制"纵打"、横打”和“页面的边距,去掉页眉,分页...打印大全

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

2004-10-18 10:27:00 896