你说的这种叫做b/s结构的程序，也就是浏览器/服务器结构的程序，在简单一点就是网站。
你以前做的那种叫做c/s结构的程序，也就是客户端/服务器结构的程序。
delphi如果要作b/s结构的程序似乎很难。b/s结构一般都用jsp、asp、aspnet、php等来作。
欢迎访问我的论坛：）
>中国网络游戏发展史
"网络让我们的地球变成一个村落！"
曾经说过的这句话代表了人类一种广范沟通的欲望。2000年后，网络所营造的泡沫经济开始破灭，一个个盛极一时的网络公司纷纷传出裁员或倒闭的消息，而一个网站却呈现另外一番景象：2001年5月，联众游戏以17万同时在线、2000万注册用户的规模成为世界最大在线游戏网站。
就是以联众游戏和文字MUD为代表的网络在．com泡沫经济中独树一帜的表现，让不少人看到了其中所蕴涵的巨大商机。在后面的这几年里，网络游戏确实以惊人的速度发展起来了。
1998年6月 联众网络游戏世界正式推出。
开拓者的道路
第一批进入中国大陆的网络游戏之一《万王之王》获得巨大的成功。随后，由北京华义代理的《石器时代》于2001年1月正式上市。由亚联游戏代理的《千年》紧跟在2001年2月开始测试，4月开始正式收费。
到2001年6月止，网络游戏进入中国大陆一年间，市场上推出的网络游戏数量达到十数款，呈现一片欣欣向荣的景象。 网络游戏的火爆登场，引起了众多媒体的关注，一批网络游戏的专业媒体在此期间显露头角。然而，在网络游戏从无到有的快速成长背后，不可否认地存在成长过快所带来的问题，如盲目引进游戏、游戏运营管理混乱等。早期中国网络游戏的发展，并没有进行良好的产业规划，存在着一定的自发性。因而早期的网络游戏，除少部分仍能成功运营外，大部分都已退出市场或惨淡经营。
2000年6月 华彩公司正式发行中国大陆第一款大型多人在线RPG《万王之王》；
2000年7月 《大众网络报》创刊，开辟了第一个网络游戏版块；
2000年9月 智冠公司制作的《网络三国》正式发行；
2000年11月 宇智科通正式推出《黑暗之光》；
2001年1月 北京华义代理的《石器时代》正式上市；
2001年3月 北京中文之星出品的《第四世界》正式上市；
2001年3月 亚联游戏代理的《千年》正式上市。
崛起的前奏
从《万王之王》进入中国开始，就注定与之相关的许多方面备受影响，其中受影响最大之一的则是单机游戏市场。2000年底，网络游戏的迅猛发展，使其规模达到了多年形成的单机游戏市场规模的数成，而到了2001 年，网络游戏更是发展到与单机游戏市场规模相当。
一个接一个新网络游戏测试及上市的消息几乎充斥了2001年下半年的网络游戏市场。但2000年下半年和 2001年上半年不同，这一时期开始有一些资深的单机游戏厂商加入，他们在单机游戏市场运作方面的心得，再加上之前已经上市网络游戏的运营经验，中国网络游戏开始步入稳定成熟的发展。大部分在今天占据主要地位的网络游戏代理商都在这一时期显露头角，而大量在未来发展中起推动作用的网络游戏也都在这时开始测试及准备工作。
与此同时，网络游戏的相关媒体如《大众网络报》也表现得进一步成熟，他们在对网络游戏的诠释和指导玩家正确进行游戏方面表现得更加有力。可以看到，在这一时期，媒体与运营商之间开始了更频繁更广泛的合作，为网络游戏向成熟稳重的方向发展起到推波助澜的作用。
2001年7月 第三波戏谷代理的《龙族》正式上市；
2001年7月 亚联游戏第二款网络游戏《红月》正式上市；
2001年7月 游龙在线推出《金庸群侠传Online》；
2001年7月 华彩公司发行的《三国世纪》正式上市；
2001年10月 天府热线游戏中心正式成立；
2001年11月 网易推出《大话西游Online》；
2001年11月 上海盛大代理的《传奇》正式上市；
2002年1月 网星公司代理的《魔力宝贝》上市；
2002年1月 捷三峰公司代理的《倚天》上市。
飞速发展的今天
到现在，中国网络游戏产业已经处在一个稳定成熟的发展阶段。从整体来看，这个阶段中国网络游戏产业的发展呈现出统一性和协调性，并且逐渐形成了完整的产业链，处于产业链上的渠道销售商、点卡销售商、上网服务业（网吧等）和媒体等，伴随着网络游戏产业的脉搏，飞速发展起来。而占据产业整体链条上最关键地位的网络游戏运营商，变得更加成熟和理智。同时，网络游戏公司与主要电信和网络厂商也建立了非常紧密的合作关系。
2002年5月 蝉童软件推出《决战》；
2002年6月 网易推出《精灵》的测试活动；
2002年7月 游龙在线推出《三国演义Online》开始正式收费；
2002年7月 捷三峰公司为其第二款网络游戏《圣者无敌》展开测试活动；
2002年7月 上海盛大代理的第二款网络游戏《疯狂坦克2》开始测试；
2002年7月 《传奇》同时在线人数突破50万，成为世界上最大的网络游戏；
2002年8月 高嘉科技代理的《天使》正式上市；
2002年8月 游戏橘子开展《混乱冒险》测试活动；
2002年8月 第九城市为其代理的《奇迹》展开测试活动。
不可限量的未来
2001年，中国网络游戏的市场规模接近3．1亿元人民币，根据IDC的研究，在2002 年中国网络游戏市场规模将达到9．1亿元人民币，比2001年增长187．6％。IDC预计，到2006年，中国网络游戏的市场规模将达到83．4亿元人民币，2001～2006年的年复合增长率将达到92．6％。2001年，中国付费网络游戏用户仅168．1万，而2002年底将达到401．3万户。
2002年10月 天府热线游戏中心推出全国首个网络游戏电视节目--《传奇之美梦成真》；
2002年10月 国内单机游戏巨头奥美电子开始涉入网络游戏，其代理的《孔雀王》开始测试；
2002年11月 天府热线游戏中心经过一年运营，其平台上经营的游戏达到9款，投入运营的服务器达到500台以上，平均在线游戏人数突破10万；
2002年11月 上海依星推出《遗忘传说》测试活动。
2002年11月 卓越数码推出《新西游记之大唐天下》；
2002年11月 新浪网正式签约《天堂》；
2002年12月 清华同方正式代理的《N－age》开始内测；
2002年12月 网星代理《轩辕剑Online》开始测试；
2002年12月 "2002年中国网络游戏产业调查报告暨网络游戏产业峰会"在成都召开。仔细确认你的账号密码，注意账号要写全！！设置默认是不带@的，一定要写全！POP3,SMTP都填mailtsr-hardwarecom，最后设置完成后，把我的服务器需要验证画勾。就可以正常收发邮件了。不过分数少点。呵呵！
可能是如下原因造成的：
⒈下载的音乐格式不一样
⒉音乐文件是板权加密保护
⒊播发器不兼容
建议解决方法如下：换个播放器下载试试的，也可以将手机升级试试。
手机自助升级有两种方式：
① 可以通过wifi在线升级：进入设置->通用/更多设置->系统升级->立即检查更新-，根据提示下载升级包，点击校验并安装，手机会重启自动进入升级模式。
②使用vivo助手升级：vivo助手下载地址：><%
'
'这是类文件，用来保存有关文件上传的类
'
'----------------------------------------------------------------------------------
Class jjUpload
'定义几个私有变量，在类内部都可以使用
Private formData,formSize,bncrlf,divider
'下面是初始化类的方法
Private Sub Class_Initialize()
formsize=RequestTotalBytes '获取传上来的二进制数据的大小
formdata=RequestBinaryRead(formsize) '获取传上来的二进制数据
bncrlf=ChrB(13) & ChrB(10) '回车换行标记
divider=LeftB(formData,CInt(InstrB(formdata,bncrlf))-1) '分隔符
End Sub
'下面的函数用来返回上传文件对象
Public Function GetFiles(FormName)
Dim objGetFiles
Set objGetFiles=New MyGetFiles
Call objGetFilesGetProperty(formData,FormName)
Set GetFiles=objGetFiles
End Function
'下面的函数用来返回上传表单对象
Public Function GetForms(FormName)
Dim objGetForms
Set objGetForms=New MyGetForms
Call objGetFormsGetValue(formdata,FormName)
Set GetForms=objGetForms
End Function
End Class
'----------------------------------------------------------------------------------
Class MyGetFiles
'定义几个私有变量
Dim theFilePath,theFileName,theExt,theSize,theMIME,theformData
'定义几个只读属性，用来返回有关信息
Public Property Get FilePath
FilePath=theFilePath
End Property
Public Property Get FileName
FileName=theFileName
End Property
Public Property Get Ext
Ext=theExt
End Property
Public Property Get Size
Size=theSize
End Property
Public Property Get MIME
MIME=theMIME
End Property
'下面是初始化类的方法
Private Sub Class_Initialize()
End Sub
'下面是返回各个类的属性
Public Sub GetProperty(formData,FormName)
Dim bncrlf,divider
bncrlf=ChrB(13) & ChrB(10) '回车换行标记
divider=LeftB(formData,CInt(InstrB(formdata,bncrlf))-1) '分隔符
'下面开始查找该FormName对应的内容，strTemp变量用来保存一个二进制字符串
'dataStart为开始位置，dataEnd为结束位置，dataLen为要取信息的长度,temp为临时使用。
Dim strTemp,dataStart,dataEnd,dataLen,temp,intFlag
'因为发生引号嵌套，这里的内层引号用""代替。
strTemp=StringToBinary("Content-Disposition: form-data; name=""" & FormName & """; filename=""")
'在formData中查找二进制字符串strTemp,如果找到了就继续处理，如果找不到返回错误信息。
intFlag=InstrB(formData,Divider & bncrlf & strTemp)
Dim arrayTemp()
If intFlag>0 Then
'重定义数组长度
Redim arrayTemp(4)
'首先返回文件在客户端的路径
dataStart=intFlag+LenB(Divider & bncrlf & strTemp) '定位到第1个字符
dataend=InstrB(datastart,formdata,bncrlf)-2 '定位到最后1个字符
dataLen=dataend-datastart+1 '返回要取信息的长度
theFilePath=BinaryToString(MidB(formdata,datastart,datalen)) '返回文件路径
'返回文件的名称，其实只要从客户端路径中分析出文件名称即可
theFileName=Mid(theFilePath,InstrRev(theFilePath,"\")+1)
'返回文件的扩展名，其实只要从文件名称中分析出文件扩展名即可
theExt=Mid(theFileName,InstrRev(theFileName,"")+1)
'下面获取文件的MIME类型
temp=dataend '记住当前位置
datastart=temp+18 '定位到第1个字符
dataend=InstrB(datastart,formdata,bncrlf & bncrlf)-1 '定位到最后1个字符
dataLen=dataend-datastart+1 '返回要取信息的长度
theMIME=BinaryToString(MidB(formdata,datastart,datalen)) '返回MIME类型
'下面获取文件大小
temp=dataend
datastart=dataend+5 '定位到第1个字符
dataend=InstrB(datastart,formdata,divider)-3 '定位到最后1个字符
theSize=dataend-datastart+1 '返回文件大小
End If
'将formData保存在本类的私有变量中，以备使用
theformData=formData
End Sub
'----------------------------------------------------------------------------------
'下面定义一个保存文件的方法
Public Function SaveToFile(FormName,SaveFilePath,OverWriteFlag)
Dim bncrlf,divider
bncrlf=ChrB(13) & ChrB(10) '回车换行标记
divider=LeftB(theformData,CInt(InstrB(theformdata,bncrlf))-1) '分隔符
'下面开始查找该FormName对应的内容，strTemp变量用来保存一个二进制字符串
'dataStart为开始位置，dataEnd为结束位置，dataLen为要取信息的长度,temp为临时使用。
Dim strTemp,dataStart,dataEnd,dataLen,temp,intFlag,filepath,filename
'因为发生引号嵌套，这里的内层引号用""代替。
strTemp=StringToBinary("Content-Disposition: form-data; name=""" & FormName & """; filename=""")
'在formData中查找二进制字符串strTemp,如果找到了就继续处理，如果找不到返回错误信息。
intFlag=InstrB(theformData,Divider & bncrlf & strTemp)
Dim arrayTemp()
If intFlag>0 Then
'因为后面要用到文件的名字，所以首先返回文件的名字
dataStart=intFlag+LenB(Divider & bncrlf & strTemp) '定位到第1个字符
dataend=InstrB(datastart,theformData,bncrlf)-2 '定位到最后1个字符
dataLen=dataend-datastart+1 '返回要取信息的长度
filepath=BinaryToString(MidB(theformData,datastart,datalen)) '返回文件路径
filename=Mid(filepath,InstrRev(filepath,"\")+1)
'从当前位置找到两个回车换行符，也就是文件内容开头的地方
dataStart=InstrB(intFlag,theformData,bncrlf & bncrlf)+4 '定位到文件内容所在的第1个字符
dataEnd=InstrB(datastart,theformData,divider)-3 '定位到文件内容的最后一个字符
dataLen=dataend-datastart+1 '返回文件内容的长度
If dataLen<=0 Then
SaveToFile=3
Exit Function
End If
'下面建立了两个Stream对象，objStream1将整个theformData读取到对象中，然后将其中的文件内容部分复制到
'objStream2对象中，然后再利用SaveToFile方法保存到指定文件夹下。
Dim objStream1
Set objStream1=ServerCreateObject("AdodbStream")
objStream1Type = 1 '设置二进制方式
objStream1Open '打开对象
objStream1Write theformData '写出文件内容到对象中
Dim objStream2
Set objStream2=ServerCreateObject("AdodbStream")
objStream2Type = 1 '设置二进制方式
objStream2Open '打开对象
objStream1Position=datastart-1 '设定起始位置，这里索引从0开始，所以减1
objStream1CopyTo objStream2,dataLen '写出文件内容到对象中
'如果允许覆盖，才覆盖，否则给出提示信息，提示客户更改名字
If OverWriteFlag=True Then
objStream2SaveToFile SaveFilePath & "\" & filename,2 '保存文件,2表示可以覆盖
Else
Set fso=ServerCreateObject("ScriptingFileSystemObject")
IF fsoFileExists(SaveFilePath & "\" & filename)=True Then
SaveToFile=2 '返回函数值，1表示已经存在同名文件
Exit Function
Else
objStream2SaveToFile SaveFilePath & "\" & filename,1 '1表示不可以覆盖
End If
End IF
'关闭对象
objStream1Close
Set objStream1=Nothing
objStream2Close
Set objStream2=Nothing
SaveToFile=1 '下面返回函数值，0表示正常
Else
SaveToFile=0 '下面返回函数值，2表示找不到，发生错误
End If
End Function
'下面定义保存文件到数据库的方法
Public Function SaveToDataBase(FormName,strConn,strSql)
Dim bncrlf,divider
bncrlf=ChrB(13) & ChrB(10) '回车换行标记
divider=LeftB(theformData,CInt(InstrB(theformdata,bncrlf))-1) '分隔符
'下面开始查找该FormName对应的内容，strTemp变量用来保存一个二进制字符串
'dataStart为开始位置，dataEnd为结束位置，dataLen为要取信息的长度,temp为临时使用。
Dim strTemp,dataStart,dataEnd,dataLen,temp,intFlag,fileimage
'因为发生引号嵌套，这里的内层引号用""代替。
strTemp=StringToBinary("Content-Disposition: form-data; name=""" & FormName & """; filename=""")
'在formData中查找二进制字符串strTemp,如果找到了就继续处理，如果找不到返回错误信息。
intFlag=InstrB(theformData,Divider & bncrlf & strTemp)
Dim arrayTemp()
If intFlag>0 Then
'从当前位置找到两个回车换行符，也就是文件内容开头的地方
dataStart=InstrB(intFlag,theformData,bncrlf & bncrlf)+4 '定位到文件内容所在的第1个字符
dataEnd=InstrB(datastart,theformData,divider)-3 '定位到文件内容的最后一个字符
dataLen=dataend-datastart+1 '返回文件内容的长度
fileimage=MidB(theformData,datastart,datalen) '返回二进制文件内容
If dataLen<=0 Then
SaveToFile=3 '3表示根本没有选择文件
Exit Function
End If
'！！！因为当文件大小为奇数字符时，在往数据库中保存时有一些小问题，会少一个字节，所以这里先给它加一个二进制空格
If dataLen Mod 2 = 1 Then
fileimage=fileimage & Chrb(32)
datalen=datalen+1
End If
'下面将文件保存到数据库中
Dim db,cmd,rs
Set db=ServerCreateObject("ADODBConnection")
dbOpen strConn
Set cmd= ServerCreateObject("ADODBCommand")
cmdActiveConnection=db
cmdCommandText=strSql
'下面建立一个参数对象prm，并将该对象加入到参数集合中,204表示是二进制值
Dim prm
Set prm=cmdCreateParameter("fileimage",204,1,datalen,fileimage)
cmdParametersAppend prm
set rs=cmdExecute
SaveToDatabase=1 '返回函数值，0表示正常
Else
SaveToDatabase=0 '返回函数值，2表示错误
End If
End Function
'下面是注销该类的方法
Private Sub Class_Terminate()
'theformData=Nothing
End Sub
End Class
'----------------------------------------------------------------------------------
Class MyGetForms
'定义1个私有变量
Dim theValue
'定义几个只读属性，用来返回有关信息
Public Property Get Value
Value=theValue
End Property
'下面是初始化类的方法
Private Sub Class_Initialize()
End Sub
'该方法给属性赋值
Public Sub GetValue(formData,FormName)
Dim bncrlf,divider
bncrlf=ChrB(13) & ChrB(10) '回车换行标记
divider=LeftB(formData,CInt(InstrB(formdata,bncrlf))-1) '分隔符
'下面开始查找该FormName对应的内容，下面会首先定义几个变量,strTemp为一个字符串变量，临时保存二进制字符串
'dataStart为开始位置，dataEnd为结束位置，dataLen为要取信息的长度,temp为临时使用，为了记住当前位置。
Dim strTemp,dataStart,dataEnd,dataLen,temp,intFlag
strTemp=StringToBinary("Content-Disposition: form-data; name=""" & FormName & """")
'在整个二进制字符串中查找下面这一个二进制字符串
intFlag=InstrB(formData,Divider & bncrlf & strTemp & bncrlf & bncrlf)
'如果找到了，就依次返回有关信息,如果找不到，就返回一个错误信息
If intFlag>0 Then
datastart=intFlag+LenB(Divider & bncrlf & strTemp & bncrlf & bncrlf) '定位到第1个字符
dataend=InstrB(datastart,formdata,divider)-3 '定位到最后1个字符
dataLen=dataend-datastart+1 '返回要取信息的长度
theValue=BinaryToString(MidB(formdata,datastart,datalen)) '返回出表单内容信息
Else
theValue=""
End If
End Sub
End Class
'------------------------------------------------------------------------------------------------
'该函数可以将二进制字符串转换成文本字符串
Function BinaryToString(thedata)
'变量strNow表示正在处理的字符，strTemp用来保存已经处理完毕的字符串
'变量flag是一个标志，False表示前一个字符不是中文，True表示前一个字符是中文
Dim strNow,strTemp,flag,I
flag=False
'利用循环依次转换每一个字符
For I=1 To LenB(thedata)
'因为一个中文字符包括两个字节，如果flag=True，表示前一个字符是中文，所以
'要跳过该字符，需要令标志flag=False。否则表示不是中文，就需要将其转换
If flag=True Then
flag=False
Else
'取出当前二进制字符
strNow=MidB(thedata,I,1)
'如果AscB(strNow)>127，表示这是一个中文字符，AscB(tsrNow)<127，表示不是中文字符
If AscB(strNow) > 127 Then
'如果是中文，首先需要把当前字符和下一个字符调换位置，然后用AscW
'返回对应的ASCII码。随之，用Chr函数返回该ASCII码对应的文本
'最后，还要把中文标志设为True
strTemp=strTemp & Chr(AscW(MidB(thedata,I+1,1) & strNow))
flag=True
Else
'这表示是英文，AscB返回对应的ASCII码，Chr返回对应的文本字符
strTemp=strTemp & Chr(AscB(strNow))
End If
End If
Next
BinaryToString=strTemp '返回函数值
End Function
'该函数可以将文本字符串转换成二进制字符串
Function StringToBinary(thedata)
'变量strNow表示正在处理的字符，strTemp用来保存已经处理完毕的字符串
'变量intNow用来表示当前字符的ASCII码
'变量ascLow和ascHigh用来保存中文字符的第1个和第2个字节
Dim strNow,intNow,strTemp,I,binLow,binHigh
'利用循环依次转换每一个字符
For I=1 To Len(thedata)
'取出当前文本字符，并返回ASCII码
strNow=Mid(thedata,I,1)
intNow=Asc(strNow)
'如果Asc(strNow)<0，则表示是中文字符，则需要加上65535返回它的无符号数值
If intNow<0 Then
intNow=intNow+65535
End If
'如果加上65535后ASCII码大于255，则表示是中文，中文是用两个字节表示的，必须分开处理。当然，如果是英文字符就简单了
If intNow>255 Then
'这里binLow返回低字节，binHigh返回高字节其中Hex函数返回一个字符串，表示一个数字的十六进制数
binLow="&H" & Left(Hex(Asc(strNow)),2)
binHigh="&H" & Right(Hex(Asc(strNow)),2)
strTemp=strTemp & ChrB(binLow) & ChrB(binHigh)
Else
'这表示是英文，Asc函数返回ASCII码，ChrB返回对应的二进制字符。
strTemp=strTemp & ChrB(Asc(strNow))
End If
Next
StringToBinary=strTemp '返回函数值
End Function
%>
等网页文件，被感染的逻辑盘的每个目录都被生成desktopini、folderhtt
文件，病毒交叉感染使得 *** 作系统速度变慢。而像冲击波等蠕虫病毒，由于病毒发作后会开启上百线程扫描网络，或是利用自带的发信模块向外狂发带毒邮件，大量消耗系统资源，因此会使 *** 作系统运行得很慢，严重时甚至死机。
而象冲击波等蠕虫病毒，由于病毒发作后会开启上百线程扫描网络，或是利用自带的发信模块向外狂发带毒邮件，大量消耗系统资源，因此会使 *** 作系统运行很慢，严重时甚至死机。
文件型病毒感染文件后会增加文件长度，如果发现文件长度莫名其妙地发生了变化，就可能是感染了病毒。同时，病毒在感染文件过程中不断复制自身，占用硬盘的存储空间，如果你发现在没有安装任何文件的情况下，硬盘容量不断减少（一些系统中存在的缓存文件和网页残留信息不是病毒）。除了以上常见的一些现象外，如果电脑出现以下的症状之一，也可能是感染了病毒。读者朋友们在使用电脑过程中可以对照一下，由于版面问题，这里就不一一详说了。
丢失文件或文件损坏；计算机屏幕上出现异常显示；计算机系统的蜂鸣器出现异常声响；磁盘卷标发生变化；系统不识别硬盘；有不明程序对存储系统异常访问；键盘输入异常；文件的日期、时间、属性等发生变化；文件无法正确读取、
复制或打开；命令执行出现错误；系统虚假报警；系统时间倒转，逆向计时；WINDOWS *** 作系统无故频繁出现错误；系统异常重新启动；一些外部设备工作异常，如打印机常打出一些乱码；系统或是打开文件时异常要求用户输入密码；WORD或EXCEL提示执行"宏"等等。
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）