博客园_My技术园

asp 保留小数点后一位、用Formatnumber函数取小数点后多位 asp保留两位小数不足补0

2011-10-05T01:46:00Z

asp 保留小数点后一位、用Formatnumber函数取小数点后多位 asp保留两位小数不足补0

<%=Formatnumber(12345.12345,2,-1,-1,0)%>

结果：12345.12
一个例子用到了函数Formatnumber()的所有参数：
第一个参数（12345.12345）指定了要进行格式化的数字。
第二个参数（2）指定了小数点后显示的位数。
第三个参数（-1）指定了是否显示前导的零。
第四个参数(-1)指定是否对负数使用括号。
最后一个参数(0)指定是否显示分隔符

本文链接

As电子邮件、手机号码有效性验证的函数

2011-08-11T05:51:00Z

'********************************************
'函数名：IsValidEmail
'作用：检查Email地址合法性
'参数：email ----要检查的Email地址
'返回值：True ----Email地址合法
' False ----Email地址不合法
'********************************************
Function IsValidEmail(Email)
Dim names, name, I, c
IsValidEmail = True
names = Split(Email, "@")
If UBound(names) <> 1 Then IsValidEmail = False: Exit Function
For Each name In names
If Len(name) <= 0 Then IsValidEmail = False:Exit Function
For I = 1 To Len(name)
c = LCase(Mid(name, I, 1))
If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c) Then IsValidEmail = False:Exit Function
Next
If Left(name, 1) = "." Or Right(name, 1) = "." Then IsValidEmail = False:Exit Function
Next
If InStr(names(1), ".") <= 0 Then IsValidEmail = False:Exit Function
I = Len(names(1)) - InStrRev(names(1), ".")
If I <> 2 And I <> 3 Then IsValidEmail = False:Exit Function
If InStr(Email, "..") > 0 Then IsValidEmail = False
End Function

'********************************************
'函数名：ValidMobile
'作用：检查手机号码合法性
'参数：str ----要检查的手机号码
'返回值：True ----手机号码合法
' False ----手机号码不合法
'********************************************
Function ValidMobile(ByVal str)
Dim reg
Set reg = New RegExp
reg.Pattern = "^1[358][\d]{9}$"
ValidMobile = reg.test(str)
Set reg = Nothing
End Function

本文链接

CSS中cursor的pointer 与 hand

2011-08-03T02:24:00Z

cursor:hand 与 cursor:pointer 的效果是一样，都像手形光标。但用FireFox浏览时才注意到使用cursor:hand在FireFox里并被支持。
cursor:hand ：IE完全支持。但是在firefox是不支持的，没有效果。
cursor:pointer ：是CSS2.0的标准。所以firefox是支持的，但是IE5.0既之前版本不支持。IE6开始支持。

附：cursor属性收集

光标类型   CSS
十字准心 cursor: crosshair;
手 cursor: pointer;
cursor: hand;
写两个是为了照顾IE5，它只认hand。
等待/沙漏 cursor: wait;
帮助 cursor: help;
无法释放 cursor: no-drop;
文字/编辑 cursor: text;
可移动对象 cursor: move;
向上改变大小(North)   cursor: n-resize;
向下改变大小(South)   cursor: s-resize;
向右改变大小(East)   cursor: e-resize;
向左改变大小(West)   cursor: w-resize;
向上右改变大小(North East)   cursor: ne-resize;
向上左改变大小(North West)   cursor: nw-resize;
向下右改变大小(South East)   cursor: se-resize;
向下左改变大小(South West)   cursor: sw-resize;
自动 cursor: auto;
禁止 cursor:not-allowed;
处理中 cursor: progress;
系统默认 cursor: default;
用户自定义（可用动画） cursor: url(‘ # ‘);
# = 光标文件地址    (注意文件格式必须为：.cur 或 .ani)。

来源：http://i.80tvb.com/css-cursor-pointer-hand/

本文链接

ASP操作XML数据小结

2011-07-22T02:04:00Z

XML用途之一

增加、删除、修改“XML 记录”的例子
'XML 文件
<?xml version="1.0" encoding="gb2312"?>
<stocks date="2001-8-24">
<stock>
<code>111</code>
<name>AAA</name>
<openprice>7.93</openprice>
<currentprice>7.93</currentprice>
<tradeamount>0</tradeamount>
<totalamount>1000000</totalamount>
<status>1</status>
</stock>
<stock>
<code>222</code>
<name>BBB</name>
<openprice>170.92</openprice>
<currentprice>170.92</currentprice>
<tradeamount>0</tradeamount>
<totalamount>100000</totalamount>
<status>1</status>
</stock>
<stock>
<code>333</code>
<name>CCC</name>
<openprice>55.43</openprice>
<currentprice>55.43</currentprice>
<tradeamount>0</tradeamount>
<totalamount>100000</totalamount>
<status>1</status></stock>
</stocks>

'处理文件 Stocks.asp
<%
Response.CacheControl = "no-cache"
%>
<html>
<head>

<title>XML 的股票行情</title>
<style>
td {font-size:9pt}
</style>
</head>

<body>
<h1>XML 的股票行情</h1>

<hr>
<%
set xml = Server.CreateObject("MSXML2.domdocument")
'set xml = Server.CreateObject("Microsoft.xmlDom")
xml.load Server.MapPath("stocks.xml")
if xml.parseError.errorCode <> 0 then
Response.Write "xml.parseError.errorCode = " &xml.parseError.errorCode
Response.Write "xml.parseError.reason = " &xml.parseError.reason
Response.Write "xml.parseError.line = " &xml.parseError.line
Response.End
end if

'如果<stocks>的DATE属性不是今天，则改为今天
xmlDate = xml.documentElement.attributes.getNamedItem("date").text
if datediff("d",xmlDate,date) >= 1 then
'xml.documentElement.attributes.getNamedItem("date").text = FormatDateTime(date,2)
'可以在此加入改变股票价格的代码
i = 1
StockAmount = xml.getElementsByTagName("stock").length
set StockList = xml.getElementsByTagName("stock")
for i = 0 to StockAmount - 1
set StockTemp = StockList.item(i)
randomize
ss =1
if rnd() > 0.6 then ss = -1
randomize
StockTemp.childNodes.item(2).text = FormatNumber(Ccur(StockTemp.childNodes.item(2).text)*(1+ss*rnd()/10),2)
StockTemp.childNodes.item(3).text = StockTemp.childNodes.item(2).text
next

xml.save Server.MapPath("stocks.xml")
end if

if Request.Form("submit") = "增加股票" then

set objRoot = xml.documentElement
set newStock = xml.createElement("stock")
objRoot.appendChild newStock
set objA1 = xml.createElement("code")
newStock.appendChild objA1
objA1.text = Request.Form("scode")
set objA2 = xml.createElement("name")
newStock.appendChild objA2
objA2.text = Request.Form("sname")
set objA3 = xml.createElement("openprice")
newStock.appendChild objA3
objA3.text = Request.Form("openPrice")
set objA4 = xml.createElement("currentprice")
newStock.appendChild objA4
objA4.text = Request.Form("curPrice")
set objA5 = xml.createElement("tradeamount")
newStock.appendChild objA5
objA5.text = Request.Form("tradeAmount")
set objA6 = xml.createElement("totalamount")
newStock.appendChild objA6
objA6.text = Request.Form("TotalAmount")
set objA7 = xml.createElement("status")
newStock.appendChild objA7
objA7.text = Request.Form("status")

xml.save Server.MapPath("stocks.xml")

set newStock = nothing
set objRoot = nothing
set objA1 = nothing
set objA2 = nothing
set objA3 = nothing
set objA4 = nothing
set objA5 = nothing
set objA6 = nothing
set objA7 = nothing

end if

if Request.Form("submit") = "删除" and Request.Form("remove")<>empty then
set objCodeList = xml.getElementsByTagName("code")
remove = split(Request.Form("remove"))
for i=0 to ubound(remove)
for j=0 to objCodeList.Length-1
if objcodeList.item(j).text = remove(i) then
xml.documentElement.removeChild(objcodeList.item(j).parentNode)
end if
next
xml.save Server.MapPath("stocks.xml")
next
end if

'xml.save Server.MapPath("stocks.xml")

Response.Write FormatDateTime(now)
%>
<hr>
<form action="" method="post">
<TABLE cellSpacing=1 cellPadding=1 width="100%" border=1>
<TR>
<TD>股票代码</TD>
<TD>股票名称</TD>
<TD>开盘价格</TD>
<TD>当前价格</TD>
<TD>成交量</TD>
<TD>流通总数</TD>
<TD>状态</TD>
<TD>删除</TD>
</TR>
<%
i = 1
StockAmount = xml.getElementsByTagName("stock").length
set StockList = xml.getElementsByTagName("stock")
for i = 0 to StockAmount - 1
set StockTemp = StockList.item(i)
%>
<TR>
<TD> <%=StockTemp.childNodes.item(0).text%></TD>
<TD> <%=StockTemp.childNodes.item(1).text%></TD>
<TD> <%=StockTemp.childNodes.item(2).text%></TD>
<TD> <%=StockTemp.childNodes.item(3).text%></TD>
<TD> <%=StockTemp.childNodes.item(4).text%></TD>
<TD> <%=StockTemp.childNodes.item(5).text%></TD>
<TD> <%=StockTemp.childNodes.item(6).text%></TD>
<TD><input type="checkbox" name="remove" value=<%=StockTemp.childNodes.item(0).text%>></TD>
</TR>
<%
next
set xml = nothing
%>
<TR>
<TD><input type="text" name="scode"></TD>
<TD><input type="text" name="sname"></TD>
<TD><input type="text" name="openPrice" size="6"></TD>
<TD><input type="text" name="curPrice" size="6"></TD>
<TD><input type="text" name="tradeAmount"></TD>
<TD><input type="text" name="TotalAmount"></TD>
<TD><input type="text" name="status" size="6"></TD>
<TD><input type="submit" name="submit" value="删除"></TD>
</TR>
</TABLE>
<%
%>
<input type="submit" name="submit" value="增加股票">
</form>
</body>
</html>

来自: http://hi.baidu.com/yuyang0105/blog/item/82379d476713d32acefca3d8.html

本文链接

asp操纵xml类

2011-07-22T02:00:00Z

<%
class cls_xml

private sfilename
private sxmlfile
private sobjxml

property let filename(value)
sfilename=value
end property

property get filename
filename=sfilename
end property

property get objxml
set objxml=sobjxml
end property

private sub class_initialize()
   sfilename=""
   sxmlfile=""
   sobjxml=null
end sub

private sub class_terminate()
sobjxml.close
set sobjxml=nothing
end sub

private sub createfile()'创建xml文件
   Set oPI=sobjXML.createProcessingInstruction("xml", "version=""1.0"" encoding=""GB2312""")
   sobjXML.insertBefore oPI,sobjXML.childNodes(0)
   savefile
end sub

public function loadfile()'读取xml文件
   sxmlfile=server.MapPath(sfilename)
   set sobjxml=server.CreateObject("msxml2.domdocument")
   sobjxml.load(sxmlfile)
   sobjxml.async=false
   if sobjxml.parseError.ErrorCode = 0 then
    loadfile=true
   else
    createfile
   end if
end function

public sub addnode(byval parentnode,byval childnode,byval nodetext)'添加节点
   if parentnode="" then
    sobjxml.appendchild (sobjxml.createElement(childnode))
   else
    set child=sobjxml.createElement(childnode)
    child.text=nodetext
    sobjxml.selectsinglenode(parentnode).appendchild child
   end if
   savefile
end sub

public sub addattr(byval parentnode,byval attrtype,byval attrname,byval attrtext)'添加属性
   set sattribute=sobjxml.createNode(attrtype,attrname,"")
   sattribute.text=attrtext
   if parentnode="" then
    sobjxml.documentElement.setattributenode sattribute
   else
    sobjxml.documentElement.selectsinglenode(parentnode).setattributenode sattribute
   end if
   savefile
end sub

private function getnode(byval nodepath,byval attrname,byval attrvalue)'获得节点对象
   if attrname="" then
    set getnode=sobjxml.documentElement.selectsinglenode(nodepath)
   else
    set getnode=sobjxml.documentElement.selectsinglenode("//"&nodepath&"[@"&attrname&"='"&attrvalue&"']")
   end if
end function

public function getnodename(byval nodepath,byval attrname,byval attrvalue)'获得节点名称
getnodename=getnode(nodepath,attrname,attrvalue).nodename
end function

public function getnodevalue(byval nodepath,byval attrname,byval attrvalue)'获得节点内容
getnodevalue=getnode(nodepath,attrname,attrvalue).text
end function

public sub modifynodevalue(byval nodepath,byval newtext,byval attrname,byval attrvalue)'修改节点内容
   set newnode=getnode(nodepath,attrname,attrvalue)
   newnode.text=newtext
   savefile
end sub

public function getnodeattrname(byval nodepath,byval attrname,byval attrname_,byval attrvalue_)'获得节点属性名称
getnodeattrname=getnode(nodepath,attrname_,attrvalue_).getattributenode(attrname).nodename
end function

public function getnodeattrvalue(byval nodepath,byval attrname,byval attrname_,byval attrvalue_)'获得节点属性值
getnodeattrvalue=getnode(nodepath,attrname_,attrvalue_).getattributenode(attrname).nodevalue
end function

public sub modifynodeattrvalue(byval nodepath,byval attrname,byval newtext,byval attrname_,byval attrvalue_)'修改节点属性值
   set newattr=getnode(nodepath,attrname_,attrvalue_).getattributenode(attrname)
   newattr.text=newtext
   savefile
end sub

public sub delnode(byval parentnodepath,byval parentnodeattrname,byval parentnodeattrvalue,byval childnodepath,byval childnodeattrname,byval childnodeattrvalue)'删除节点
   if parentnodepath="" then
    set parentnode=sobjxml.documentElement
   else
    set parentnode=getnode(parentnodepath,parentnodeattrname,parentnodeattrvalue)
   end if
   set childnode=getnode(childnodepath,childnodeattrname,childnodeattrvalue)
   parentnode.removechild childnode
   savefile
end sub

public function getchildlength(byval nodename,byval attrname,byval attrvalue)'获得节点长度
   if nodename="" then
    getchildlength=sobjxml.documentElement.childnodes.length
   else
    getchildlength=getnode(nodename,attrname,attrvalue).childnodes.length
   end if
end function

private sub savefile()'保存文件
sobjxml.save(sxmlfile)
end sub

end class
%>

来源：http://hi.baidu.com/lz0830/blog/item/2fbaca731321891b8601b031.html

本文链接

引用外部CSS样式，定义的效果无效

2011-07-19T01:55:00Z

网站引用外部CSS样式，在网站页面中引用定义CSS的效果无效？

这是由于网站页面字符编码与外部CSS样式字符编码不同造成的。

如果网站页面字符编码是GB2312，外部CSS样式文件字符编码是UTF-8，那么引用外部CSS样式文件在网站页面就无法显示想要的效果，两者字符编码一致才能不会出现CSS定义的效果无效的情况。

本文链接

asp如何读取新闻内容中的N张图片地址(转载)

2011-07-04T08:12:00Z

<%
Dim Conn
Dim Rs,Sql
Dim ID
Dim Str
Dim regEx,Match,Matches,values
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb") '数据库路径，如果不和程序同目录，要加上相对目录，如 database/data.mdb
ID=Request("id")
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From [news] Where ID="&ID,Conn,1,1
If Not Rs.EOF Then
Str=Rs("content")
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = "(<img)(.[^<>]*)(src=)('|"&CHR(34)&"| )?(.[^'|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)('|"&CHR(34)&"|\s|>)(.[^>]*)(>)" '设置模式。
regEx.IgnoreCase = True '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
Set Matches = regEx.Execute(Str) '执行搜索。
For Each Match in Matches '遍历匹配集合。
Response.Write Match.SubMatches(4)&"."&Match.SubMatches(6)&"<br>"
Next
Else
Response.Write "不存在此ID的新闻"
End If
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
访问这程序时URL要加上id参数，如：http://www.xxx.com/yyy.asp?id=888

本文链接

转载：c#如何获取当前系统所有的字体和颜色？

2011-04-15T01:58:00Z

转载：http://blog.csdn.net/rentiansheng/archive/2009/12/26/5082683.aspx

需要使用using System.Drawing.Text;
使用如下命令就可以得到当前系统所有字体
InstalledFontCollection MyFont =
new InstalledFontCollection();
FontFamily[] MyFontFamilies = MyFont.Families;
InstalledFontCollection 对象只看得见在创建它之前安装在 Windows 中的字体。如果用c#创建安装字体程序要使用GDIAddFontResource 函数

InstalledFontCollection fc = new InstalledFontCollection();
foreach( FontFamily font in fc.Families )

{
ListItem tmp = new ListItem( font.Name , font.Name );
this.styleFont.Items.Add( tmp );
}

获取系统颜色预定以颜色
Array colors = System.Enum.GetValues( typeof(KnownColor) );
foreach( object colorName in colors )

{
ListItem tmp = new ListItem( colorName.ToString() , colorName.ToString());
this.styleColor.Items.Add( tmp );
}

本文链接

一个带存储过程的无限级分类数据库设计

2011-03-19T01:37:00Z

数据库保存分类信息的表命名为：cate，其结构和测试用的记录分别如1.jpg和2.jpg
-- ----------------------------
-- Table structure for cate
-- ----------------------------
CREATE TABLE `cate` (
`id` int(5) NOT NULL auto_increment,
`name` char(255) NOT NULL,
`parent_id` int(4) NOT NULL,
`nocontext` tinyint(1) NOT NULL,
`path` char(255) NOT NULL default '0',
`admin_id` tinyint(2) NOT NULL,
`editor_id` tinyint(2) NOT NULL,
`view` char(255) NOT NULL,
PRIMARY KEY (`id`)
) ENGINE=InnoDB DEFAULT CHARSET=gbk;

1.jpg

2.jpg

1、新增分类：
-- ----------------------------
-- Procedure structure for cate_insert
-- ----------------------------
DELIMITER ;;
CREATE DEFINER=`root`@`localhost` PROCEDURE `cate_insert`(_name CHAR(255), _parent_id INTEGER(4), _nocontext TINYINT(1), _admin_id TINYINT(2),_editor_id TINYINT(2),_view CHAR(255))
BEGIN
DECLARE X_max_id int default 0;
DECLARE X_parent_path char(255);
DECLARE X_path char(255);
select max(id) from cate into X_max_id ;
IF _parent_id!=0 THEN
select `path` from `cate` where `id`= _parent_id into X_parent_path;
SET X_path=CONCAT(X_parent_path,',',(X_max_id+1));
ELSE
SET X_path=X_max_id+1;
END IF;
INSERT INTO `cate` ( `name`, `parent_id`, `nocontext`, `path`, `admin_id`, `editor_id`, `view`) VALUES ( _name, _parent_id, _nocontext,X_path, _admin_id, _editor_id, _view);
END;;
DELIMITER ;

2、编辑分类
-- ----------------------------
-- Procedure structure for cate_update
-- ----------------------------
DELIMITER ;;
CREATE DEFINER=`root`@`localhost` PROCEDURE `cate_update`(_id TINYINT(5),_name CHAR(255), _parent_id INTEGER(4), _nocontext TINYINT(1), _admin_id TINYINT(2),_editor_id TINYINT(2),_view CHAR(255))
BEGIN
DECLARE X_parent_path char(255);
DECLARE X_path_old char(255);
DECLARE X_path_new char(255);
DECLARE X_parent_id_old INT;
SELECT `path` from `cate` WHERE `id`=_id into X_path_old;
IF _parent_id!=0 THEN
  select `path` from `cate` where `id`= _parent_id into X_parent_path;
    SET X_path_new = CONCAT(X_parent_path,',',_id);
ELSE
   SET X_path_new = _id;
END IF;
UPDATE `cate` set `name`=_name, `parent_id`=_parent_id, `nocontext`=_nocontext, `admin_id`=_admin_id, `editor_id`=_editor_id, `view`=_view WHERE `id`=_id;
UPDATE `cate` set `path`=REPLACE(`path`,X_path_old,X_path_new) ;
END;;
DELIMITER ;

3、取出所有分类
-- ----------------------------
-- Procedure structure for cate_selectAll
-- ----------------------------
DELIMITER ;;
CREATE DEFINER=`root`@`localhost` PROCEDURE `cate_selectAll`()
BEGIN
SELECT * FROM `cate` ORDER BY `path`;
END;;
DELIMITER ;

4、得到一个分类的路径
-- ----------------------------
-- Procedure structure for cate_getRoute
-- ----------------------------
DELIMITER ;;
CREATE DEFINER=`root`@`localhost` PROCEDURE `cate_getRoute`(_id INTEGER(5))
BEGIN
DECLARE x_path char(255);
select `path` from `cate` where `id`=_id into x_path;
select * from `cate` where FIND_IN_SET(`id`,x_path) order by `path`;
END;;
DELIMITER ;

5、取出同一级分类
-- ----------------------------
-- Procedure structure for cate_getBrother
-- ----------------------------
DELIMITER ;;
CREATE DEFINER=`root`@`localhost` PROCEDURE `cate_getBrother`(_id INTEGER(5))
BEGIN
SELECT * FROM `cate` WHERE `parent_id`=(select `parent_id` from `cate` where `id`=_id ) order by `path`;
END;;
DELIMITER ;

6、取出单个分类
-- ----------------------------
-- Procedure structure for cate_select
-- ----------------------------
DELIMITER ;;
CREATE DEFINER=`root`@`localhost` PROCEDURE `cate_select`(_id INTEGER)
BEGIN
SELECT * FROM `cate` WHERE `id`=_id;
END;;
DELIMITER ;
完

转载：http://blog.163.com/yut-i/blog/static/24257782200862852022422/

本文链接

JS鼠标捕获DIV内选中的坐标和宽高

2011-03-18T05:10:00Z

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
<script LANGUAGE="javascript" type="text/javascript">
function aa(e)
{
//alert('ok');]
var e1 = e || window.event;
//alert(e1.clientX);
//alert(e1.clientY);
document.getElementById("x").value = e1.clientX;
document.getElementById("y").value = e1.clientY;
}
function bb(e)
{
//alert('ok');]
var e1 = e || window.event;
//alert(e1.clientX);
//alert(e1.clientY);
var kk = e1.clientX-document.getElementById("x").value;
var gg = e1.clientY-document.getElementById("y").value;
document.getElementById("k").value = kk;
document.getElementById("g").value = gg;
}
</script>
</head>

<body>
X:<input type="text" id="x" name="x" /> Y:<input type="text" id="y" name="y" /> 宽:<input type="text" id="k" name="k" /> 高:<input type="text" id="g" name="g" />
<div style="width:1123px; height:770px; border:1px solid:#000000;" onmousedown="aa(event)" onmouseup="bb(event)">
</div>
</body>
</html>

本文链接