asp常用的一些基本知识

原创 2005年05月13日 19:37:00

''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''
'转向其他的页面。。。。。。。

<html>
<head>
<meta http-equiv="refresh" content="3;url=index.asp">
<script language="javascript">
<!--
function redirect(){top.window.location.href="index.asp"}
//-->
</script>
</head>
<body onload="redirect()">
<a href="index.asp" target="_top">Click here to continue!</a>
</body>
</html>
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Browser Capabilities组件,判断浏览器类型等
'浏览器的信息保存在browscap.ini的文本中,在system32/inetsrv/下
<%@language="vbscript"%>
<%
nlnIsIE4=false
set objBCap=Server.CreateObject("MSWC.BrowserType")
if objBCap.browser="IE" and objbCap.version>=4 then blnIsIE4=true
if objBCap.ActivexControls then ...
%>
<%if blnIsIE4 then%>
.....
<%end if%>


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'可以判断浏览器类型
<%@language=vbscript%>
<%strUA=request.ServerVariables("HTTP_USER_AGENT")%>
<%
QUOT=Chr(34)
if InStr(strUA,"MSIE") then "it is a microsoft browser"
intVersion=CInt(Mid(strUA,InStr(strUA,"MSIE")+5,1))
%>

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

<input type=SUBMET VALUE="lark" ONCLICK="windows.status='searching...';document.MyForm.submit();">

<script language="javascript">
<!--
var sorryText='sorry,cannot display the color depth of your system';
if(navigator.appName.indexof('netscape')!=-1)
 if(navigator.appVersion.substr(0,1)>3)
  document.write('system color depth is '+windows.screen.pixelDepth)
 else
  document.write('sorryText');

if(navigator.appName.indexOf('Microsoft')!=-1)
 if(navigator.appVersion.substr(0,1)>3)
  document.write('system color depth is '+windows.screen.colorDepth)
 else
  document.write(sorrytext);

//-->
</script>

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'window.location.href='index.asp' 等效于
'response.clear
'response.redirect "index.asp"


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'读Cookies!
<B>the contents of your Cookies are:</B>
<%
for each item in request.cookies
  if request.cookies(item).HashKeys then
     for each itemkey in request.cookies(item)
         response.write item & "(" & itemkey & ")="_
         & request.cookies(item)(itemkey) & "<BR>"
     next
  else response.write item & "=" & request.cookies(item) & "<BR>"
 end if
next
%>

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'设置超时值
<%@language="vbscript"%>
<!--#include virtual="/common/connect.inc"//-->
<%
Server.ScriptTimeOut=2400       'will probably take a while to run
seekTitletimeOut=45             'seconds to wait for page to arrive
%>

'设置Cookies的过期时间
<script language="javascript">
<!--
function getOpinions()
{
  strCookie=document.cookie;
  if(strCookie.indexof("doneOpinions=True")<0)
  {
    theDate=new Date();
    theDay=theDate.getDate()+14;         //gets the day of the month
    if(theDay>28)
    {
     theDay=theDay-28;
     theMonth=theDate.getMonth()+1;
     theDate.setMonth(theMonth);
    };
    theDate.setDate(theDay);              //sets the day of the month
    strDate=theDate.toGMTString();        //expiry dates must be UNC(GMT)
    document.cookie="DoneOpinions=true;path=/;expires="+strDate;
    window.open("/common/opinion.htm","opinion_win",
                "resizable=yes,scrollbars=no,status=no,"
                +"location=no,directories=no,status=no,"
                +"menubar=no,width=360,height=200,top=5,left=5")
  }
}
//-->
</script>


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'收集会话者信息
create teble dbo.sessions
{
  EventDateTime datatime not null default GETDATE(),
  EventType varchar(50) null,
  URL varchar(255) null,
  Referer varchar(255) null,
  RemoteHost varchar(255) null,
  UserAgent varchar(255) null,
  UALanguage varchar(255) null,
  SessionCount int null,
  UserID int null,
  HostIP varchar(255) null
}
'下列代码在global.asa文件中
<script language="vbscript runat=server">
sub Application_onStart()
  on Error Resume next
  strSQL="insert into Sessions(EventType) VALUES('Application Start')"
  writeSessionData strSQL
end sub

sub session_onStart()
  on Error Resume next
  strSQL="insert into Sessions"_
         &"(EventType,URL,Referer,RemoteHost,UserAgent,"_
         &"UALanguage,UserID,HostIP)"_
         &" Values('New Session','"_
         &request.ServerVariables("URL")&"','"_
         &request.ServerVariables("HTTP_REFERER")&"','"_
         &request.ServerVariables("REMOTE_HOST")&"','"_
         &request.ServerVariables("HTTP_USER_AGENT")&"','"_
         &request.ServerVariables("HTTP_ACCEPT_LANGUAGE")&"','"_
         &CLng(Session.SessionID)&",'"_
         &request.ServerVariables("LOCAL_ADDR")&"')"
  writeSessionData strSQL
end sub

sub Application_onEnd()
  On Error Resume next
  strSQL="insert into sessions(EventType) VALUES('Application end')"
  WriteSessionData strSQL
end sub


sub Session_onStart()
  on Error Resume next
  strEntry=FormatDataTime(Now())&","
           &request.ServerVariables("URL")&","_
           &request.ServerVariables("HTTP_REFERER")&","_
           &request.ServerVariables("REMOTE_HOST")&","_
           &request.ServerVariables("HTTP_USER_AGENT")&","_
           &request.ServerVariables("HTTP_ACCEPT_LANGUAGE")&","_
           &CLng(Session.SessionID)&","_
           &request.ServerVariables("LOCAL_ADDR")&")"
  WriteSessionString strEntry          'a custom routine to write the string to a file
end sub

sub Session_onEnd()
  On Error Resume next
  strSQL="insert into Sessions(EventType,UserID)"_
         &"Values('Session end',"&CLng(Session.SessionID)&")"
  WriteSessionData strSQL
end sub

sub WriteSessionData(strSQL)
  on Error Resume next
  set oconn=Server.CreateObject("ADODB.Connection")
  oconn.open "DSN=IISLOGS_DSN;UID=anonymous;PWD=anonynous;"
  ocnn.Execute strSQL
  set oconn=Nothing
end sub

sub WriteSessionString(strEntry)
  strFileName="/logfiles/sessions.log"
  set objFSO=CreateObject("Scripting.FileSystemObject")
  'open the file with vbForAppending(8) and create if not existing
  set objFile=objFSO.OpenTextFile(strFileName,8,TRUE)
  objFile.WriteLine strEntry
  objFile.Close
end function

</script>
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
<script language="javascript">
<!--
var error Resume next
<%
var arrBooks=new Arry();
On Error resume next
set oconn=server.createObject("ADODB.connection")
oconn.open strConnect
strSQL="select ttitle from booklist order by tTitle"
set ors=oconn.Execute(strSQL)
intNumrecs=0
do while not ors.EOF
%>
arrBooks[<%=intNumrecs%>]="<%=ors("tTitle")%>";
<%
intNumrecs=intNumrecs+1
ors.MoveNext
loop
set ors=Nothing
set oconn=Nothing
%>

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'启动一个窗口
<script language="javascript">
<!--
var objWin;
function openWindow()
{
  objWin=winow.open("pop_up_frame.htm","new_win","resizable=yes,"+
                    "scrollbars=no,toolbar=no,location=no,directories=no,status=no,"+
                    "menubar=no,width=180,height=235,top=5,left=5");
  objwintimer=window.setTimeOut("closeWinow()",60000);
}
function closeWindow()
{
objWin.close();
}
//-->
</script>
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'发邮件
Introduction
This article shows how to send email from an ASP page using CDONTS Component.

Code snippet
Sub send_email(email_from, email_to, email_subject, email_body)
    Dim Newmail
    Set Newmail = server.CreateObject ("cdonts.newmail")
   
    Newmail.BodyFormat = 0
    Newmail.MailFormat = 0
    Newmail.From = email_from
    Newmail.To = email_to
    Newmail.Subject = email_subject
    Newmail.Body = email_body
    Newmail.Send
   
    Set Newmail = Nothing   
End Sub


To call the procedure: Call send_email("from@domain.com","to@domain.com","Subject","Body")
If you have any difficulty using CDONTS, it is most often the configuration of the SMTP service on IIS. There is not much that can go wrong with this simple, yet extremely powerful component.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'图像计数器
<!--count.asp-->
<%option Explicit%>
<%response.buffer=true%>
<%
dim fso,f,i,counts,length
set fso=Server.createobject("script.FileSystemObject")
set f=fso.opentextfile(server.mappath("count.log"))
counts=Clng(f.readLine)
if session("counts")="" then
   session("counts")=counts
   f.close
   counts=counts+1
   set f=fso.createTextFile(server.mappath("count.log"),true)
   f.writeline(counts)
end if
f.close
length=Len(counts)
for i=1 to 8-length
    response.write "<img src=images/0.gif></img>"
next
for i=1 to length
    response.write "<img src="&"images/"&Mid(counts,i,1)&".gif></img>"
next
%>
<%server.Execute("count.asp")%>
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'发送电子邮件的CDONTS组件的NewMail对象
from属性:设置发件人的电子邮件地址
To属性:设置收件人的电子邮件地址
bcc属性:设置密件收件人的电子邮件地址
cc属性:设置抄件人的电子邮件地址
subject属性:主题
body属性:正文部分
bodyformat属性:确定邮件的格式是html或普通文本
contentbase属性:设置邮件正文的基地址
contentlocation属性:设置邮件的绝对或相对的url地址
importance属性:设置邮件的重要性
mailformat属性:设置邮件的格式是MIME类型还是普通文本
value属性:用来设置更多的电子邮件发送头
version属性:返回CDONTS组件的版本
AttachFile方法:附加一个文件
AttachURL方法:附加一个URL地址
send方法:发送电子邮件
setLocaleIDs方法:设置电子邮件的代码页供浏览者选用合适的编码

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

一些面试基本知识(JAVA篇二)

进程与线程之间的联系与区别 参考: 操作系统 从操作系统讲起吧进程: 在多任务系中,每一个独立运行的程序就是一个进程,也可以理解为当前正在运行的每一个程序都是一个进程。具体来说,进程由以下方面组...
  • gyhgx
  • gyhgx
  • 2017年04月06日 15:41
  • 749

录井基本知识

录井   录井:记录、录取钻井过程中的各种相关信息。 录井技术是油气勘探开发活动中最基本的技术, 是发现、评估油气藏最及时、最直接的手段,具有获取地下信息及时、多样,分析解释快...
  • vbloveshllm
  • vbloveshllm
  • 2013年12月24日 09:20
  • 1766

ASP六大对象常用语句示范

Response:Response.write StrVar/"String":向网页写出参数值或字符串  等同于在Html标记中嵌入 Response.End:停止页面编译,并将已经编译内容输出到浏...
  • feng19821209
  • feng19821209
  • 2005年08月25日 14:59
  • 1191

数据库基础知识汇总

最近在复习期末考,就顺便把这些笔记保存下来,也方便以后查看,涉及的都是一些基础知识,大牛就勿喷啊,有错误之处欢迎指教~~~~首先,当然得记住一些常用的词汇啊!!!下面就把会出现的词汇都大概的总结出来,...
  • YEN_CSDN
  • YEN_CSDN
  • 2016年07月03日 15:46
  • 9057

mysql中一些常用的命令

mysql中一些常用的命令
  • rocky1996
  • rocky1996
  • 2017年03月12日 20:46
  • 134

String相关知识点总结

1.栈和堆 栈(stack)与堆(heap)都是Java用来在Ram中存放数据的地方。与C++不同,Java自动管理栈和堆,程序员不能直接地设置栈或堆。 栈的优势是,存取速度比堆要快,仅次于直接位于C...
  • yy471101598
  • yy471101598
  • 2015年11月03日 16:47
  • 329

说出一些常用的类,包,接口,请各举5个

常用的类:BufferedReader BufferedWriter FileReader FileWirter Stri...
  • coodlong
  • coodlong
  • 2016年03月09日 15:48
  • 3707

整理了一些初学者常用的代码

1.获得系统时间:   2.取得来访用的IP:3.获得系统,浏览器版本:window.document.write("版本:"+navigator.appName+navigator.appV...
  • yjc2020
  • yjc2020
  • 2004年07月20日 09:33
  • 598

常用的一些脚本语言

说起脚本语言,搞过游戏开发的,基本都不陌生,平时接触到的脚本也比较多。   比如: Python: 我参加工作之后研究的第一个脚本语言。这个脚本的功能很多模块很全,技术非常成熟...
  • amandalm
  • amandalm
  • 2014年09月26日 20:02
  • 5065

一些常用的正则表达式及一些扩展

/** * 手机号码验 * * @param mobile * * @return */ + (BOOL)isValidateMobile:(NSString *)mobile { ...
  • shan1991fei
  • shan1991fei
  • 2016年05月17日 15:35
  • 587
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp常用的一些基本知识
举报原因:
原因补充:

(最多只允许输入30个字)