|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
使用cdonts，可以发送、查看邮件，实现webmail的功能。结合wsh，可以实现对nt主机的管理，如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等，就像管理本地机一样方便。程序|静态 1、让网站和用户完成交互
你能够制造一个像SendUserInfo.htm似的网页，只用把<formmethod="POST"action="--WEBBOT-SELF--">改成<formmethod="POST"action="UserInfo.asp">就能够把你所提交的数据传送给UserInfo.asp处置。
UserInfo.Asp的源代码Request.Form("UserName")、Request.Form("UserGender")、Request.Form("UserInfo")中UserName、UserGender、UserInfo就是SendUserInfo.htm中要提交数据的name暗示。你能够把SendUserInfo.htm和UserInfo.asp对照来看。上面是UserInfo.asp的源代码的部分化释
<%ASP接纳的是VBScript言语，你也能够变动为JavaScript言语。%>
<%@Language=VBScript%>
<%UserInfo.asp
OptionExplicit
Response.Expires=0
DimStrName,StrGender,StrM,StrMsg
猎取SenderUserInfo.htm中姓名：name="UserName"传送过去的数据
StrName=Trim(Request.Form("UserName"))Trim函数用来除首尾空格
猎取SenderUserInfo.htm中性别：：name="UserGender"传送过去的数据
StrGender=Trim(Request.Form("UserGender"))
猎取SenderUserInfo.htm中留言：：name="UserInfo"传送过去的数据
StrM=Trim(Request.Form("UserInfo"))
StrMsg=Replace(StrM,vbcrlf,"<Br>"&vbcrlf)
%>
<HTML><BODY>
<%显现猎取的数据%>
姓名:<%=StrName%><Br><Br>
性别:<%=StrGender%><Br><Br>
留言:<Br><Br>
<%=StrM%><Br><Br>
</BODY></HTML>
2、网站计数器
功效：一切会见过本网页的IP地点
完成办法：把一切会见过本网页的IP地点寄存在Count.Asp中，每过一段工夫，检察一下，上岸到本网站的IP地点，假如在Count.ASP中不存在，申明这个用户之前没有来过，到场到Count.asp，假如已存在，则申明该用户之前已上岸过本网站，能够疏忽。
1：取得会见过本网页的IP地点，存进OLdIP数组中
CountFile=Server.mappath("Count.Asp")
SetStreamF=CreateObject("Scripting.FileSystemObject")
dimOldIP()
SetThisFile=StreamF.OpenTextFile(CountFile,1,False)
dowhilenotThisFile.AtEndOfStream
Thisline=ThisFile.readline
利用了Preserve关头字，就只能调剂数组最初维的巨细，而且不克不及改动数组的维数。
数组只要一维,该维是最初的也是唯一的一维,就能够修正该数组的巨细.
RedimpreserveOldIP(Countly)
OldIP(Countly)=Thisline
Countly纪录这ThisFile的行数
Countly=Countly+1
loop
ThisFile.Close
2：入手下手反省以后会见者是不是把以后的IP地点到场到Count.ASP中，用OLDIP数组来判别
Flage=1
ArriveIP=Request.ServerVariables("REMOTE_ADDR")
Response.WriteArriveIP
forI=1toCountly
Request.ServerVariables("REMOTE_ADDR")取得收回哀求呆板的IP
if(ArriveIP=OldIP(I-1))then
Flage=0
endif
next
3：假如以后的IP步在Count.asp中，到场到Count.asp，判别是不是到场到Count.asp是依据2中的Flags来判别
SetWriteF=StreamF.OpenTextFile(CountFile,8,0)
ifFlage=1Then
Countly=Countly+1
WriteF.WriteLineArriveIP
Endif
WriteF.Close
4：显现会见过本网页的IP地点
<%
SetThisFile=StreamF.OpenTextFile(CountFile,1,False)
dowhilenotThisFile.AtEndOfStream
Thisline=ThisFile.readline
Response.WriteThisLine&chr(13)
loop
ThisFile.Close
%>
3、投票体系的创建
功效：对栏目举行投票，选择你喜好的栏目。
完成办法：把投票的了局存在Result.txt文件中，以后事情的网页是Voting.asp，提交的工具是Voted.asp，当单击检察按钮时，能够检察以后选票的了局。两头存在的Bug，就是当提交以后，持续革新Voted.asp，如许选票了局会主动的增加，想一想这是为何？用甚么办法来办理？你时分碰着过相似的网站。
Voting.asp的关头是：
1：显现检察了局
<scriptlanguage=javascript>
functionwindowOpen(loadpos)
{window.open(loadpos,"surveywin","toolbar,resizable,scrollbars,dependent,
width=400,height=480");
}
</SCRIPT>
2：提交数据给Voted.asp<formmethod="POST"action="Voted.asp">
3：Voted.asp的关头是对上面两句话，第一行保留的是软件栏目选票的数目，第二行保留的是电脑事情室栏目标选票数目。上面一段程序，就是依据提交的数据主动的更新软件栏目标选票数目大概电脑事情室栏目标选票数目。
<%
SetFileS=Server.CreateObject("Scripting.FileSystemObject")
IfRequest.Form("R1")="Soft"then
SetFileR=FileS.OpenTextFile(Server.MapPath("Result.txt"),1,True)
Soft=FileR.Readline
Studio=FileR.Readline
FileR.Close
Soft=Int(Soft)+1
SetFileR=FileS.OpenTextFile(Server.MapPath("Result.txt"),2,True)
FileR.WriteLineSoft
FileR.WriteLineStudio
FileR.Close
Else
SetFileR=FileS.OpenTextFile(Server.MapPath("Result.txt"),1,True)
Soft=FileR.Readline
Studio=FileR.Readline
FileR.Close
Studio=Int(Studio)+1
SetFileR=FileS.OpenTextFile(Server.MapPath("Result.txt"),2,True)
FileR.WriteLineSoft
FileR.WriteLineStudio
FileR.Close
EndIf
%>
4：上面一段程序时猎取两个栏目标选票数目，同时盘算出百分比，和失掉选票的数目。
<%
SetFileS=Server.CreateObject("Scripting.FileSystemObject")
SetFileR=FileS.OpenTextFile(Server.MapPath("result.txt"),1,True)
OSoft=FileR.Readline
OStudio=FileR.Readline
FileR.Close
nCount=Int(OSoft)+Int(OStudio)
Soft=(100*Int(OSoft))/Int(nCount)
Studio=(100*Int(OStudio))/Int(nCount)
Soft=FormatNumber(Soft,2)
Studio=FormatNumber(Studio,2)
%>
4、显现在线IP地点
功效：显现以后网页在耳目数和IP地点。
办法：把以后的网页在线IP地点存进People.asp中，每过一分钟主动革新一次，用来统计以后网页的在耳目数和IP地点。
1：把以后的在线IP地点和会见工夫存进ly数组中。
SetThisFile=StreamF.OpenTextFile(CountFile,1,False)
Countly=0
dowhilenotThisFile.AtEndOfStream
Thisline=ThisFile.readline
利用了Preserve关头字，就只能调剂数组最初维的巨细，而且不克不及改动数组的维数。
数组只要一维,该维是最初的也是唯一的一维,就能够修正该数组的巨细.
Redimpreservely(Countly)
ly(Countly)=Thisline
Countly纪录这ThisFile的行数
Countly=Countly+1
loop
ThisFile.Close
2：入手下手革新会见以后网页IP地点
sj中存确当前的体系工夫
sameip=0
fori=1to(Countly-1)/2
获得偶数列
假如在方才统计的在线IP地点和以后的工夫凌驾了一分钟，则上出该IP
ifDateDiff("s",ly(i*2),sj)>60then
ly(i*2-1)=""
ly(i*2)=""
Countly=Countly-2
endif
猎取方才在线的IP地点，假如如今还在线
Request.ServerVariables("REMOTE_ADDR")取得收回哀求呆板的IP
ifRequest.ServerVariables("REMOTE_ADDR")=ly(i*2-1)then
sameip=1
ly(i*2)=sj
endif
next
3：将最新的会见以后网页的IP地点存进People.asp
入手下手向People.asp这个文件写数据
setOutFile=StreamF.CreateTextFile(CountFile)
fori=0toCountly-1
ifly(i)""then
outFile.WriteLinely(i)
endif
next
ifsameip=0then
outFile.WriteLineRequest.ServerVariables("REMOTE_ADDR")
outFile.WriteLinesj
outFile.Close
endif
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们) |
|
|Archiver|手机版|仓酷云
鄂ICP备14007578号-2
发表于 2015-1-16 22:11:18
收藏
转播
分享
淘帖
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
照妖镜