统计字符串中出现的次数
[
2007/08/14 17:30 | by Else ]
2007/08/14 17:30 | by Else ]
Function StrNumber(StrInfo,StrTemp)
'StrInfo 总字符
'StrTemp字符串
If StrInfo <>"" And StrTemp<>"" And len(StrInfo)>len(StrTemp) Then
StrNumber=(len(StrInfo)-len(replace(StrInfo,StrTemp ,"")))/Len(StrTemp)
End If
End Function
'StrInfo 总字符
'StrTemp字符串
If StrInfo <>"" And StrTemp<>"" And len(StrInfo)>len(StrTemp) Then
StrNumber=(len(StrInfo)-len(replace(StrInfo,StrTemp ,"")))/Len(StrTemp)
End If
End Function
UNION 运算示例
[ 2007/08/14 15:02 | by Else ]
2007/08/14 15:02 | by Else ]
UNION 运算示例
此示例捕获在巴西的所有供给商和客户的名字及城市。
此示例调用过程 EnumFields 过程，且可以在 SELECT 语句示例中找到该过程。
Sub UnionX()
Dim dbs As Database, rst As Recordset
' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")
' 对运费超过 $100 的订单，
' 捕获在巴西的所有供给商和客户的名字及城市。
'
Set rst = dbs.OpenRecordset("SELECT CompanyName," _
& " City FROM Suppliers" _
& " WHERE Country = 'Brazil' UNION" _
& " SELECT CompanyName, City FROM Customers" _
& " WHERE Country = 'Brazil';")
' populateRecordset。
rst.MoveLast
' 调用 EnumFields 来打印记录集的内容。
'传递记录集对象和要求的字符宽度。
'
EnumFields rst, 12
dbs.Close
End Sub
此示例捕获在巴西的所有供给商和客户的名字及城市。
此示例调用过程 EnumFields 过程，且可以在 SELECT 语句示例中找到该过程。
Sub UnionX()
Dim dbs As Database, rst As Recordset
' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")
' 对运费超过 $100 的订单，
' 捕获在巴西的所有供给商和客户的名字及城市。
'
Set rst = dbs.OpenRecordset("SELECT CompanyName," _
& " City FROM Suppliers" _
& " WHERE Country = 'Brazil' UNION" _
& " SELECT CompanyName, City FROM Customers" _
& " WHERE Country = 'Brazil';")
' populateRecordset。
rst.MoveLast
' 调用 EnumFields 来打印记录集的内容。
'传递记录集对象和要求的字符宽度。
'
EnumFields rst, 12
dbs.Close
End Sub
这个感觉很是很实用!所以贴出来!
<img border='0' src='pic.gif' onload='javascript:if(this.width>screen.width-333)this.width=screen.width-333' alt='' />
<script language="JavaScript1.2" type="text/javascript">
document.write('<span id="order" >1</span>');
function order(){
var xmlDoc = new ActiveXObject("Microsoft.XMLDOM");
xmlDoc.async="false";
xmlDoc.load("file.asp");
document.getElementById("order").innerHTML=xmlDoc.documentElement.childNodes[0].text
}
setInterval("order()", 1000);
</script>)
document.write('<span id="order" >1</span>');
function order(){
var xmlDoc = new ActiveXObject("Microsoft.XMLDOM");
xmlDoc.async="false";
xmlDoc.load("file.asp");
document.getElementById("order").innerHTML=xmlDoc.documentElement.childNodes[0].text
}
setInterval("order()", 1000);
</script>)
file
<!--#include file="inc.asp" -->
<%
Response.ContentType="text/xml"
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
exec="select state from [table] where 新字段=1 "
set list=server.CreateObject("adodb.recordset")
list.open exec,conn,1,1
response.Write("<ok>"&list.recordcount&"</ok>")
'response.Write list.recordcount
list.close
set list=Nothing
conn.close
set conn=Nothing
%>
<%
Response.ContentType="text/xml"
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
exec="select state from [table] where 新字段=1 "
set list=server.CreateObject("adodb.recordset")
list.open exec,conn,1,1
response.Write("<ok>"&list.recordcount&"</ok>")
'response.Write list.recordcount
list.close
set list=Nothing
conn.close
set conn=Nothing
%>
Ajax应用实例: asp+mdb数据库注册模块例子
[ 2007/08/04 10:41 | by Else ]
2007/08/04 10:41 | by Else ]
index.htm 文件
reg.asp
<!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>
<title>Ajax - Sample1</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!--请一定要将此页的编码设为UTF-8,否则aixq将com出现乱码 else's blog-->
<meta http-equiv="pragma" content="no-cache"/>
<script language="javascript" type="text/javascript">
function GE(a){return document.getElementById(a);}
function Check(){
if(GE('username').value==''){GE('msg').innerHTML='用名不能为空';return false}
if(GE('password').value==''){GE('msg').innerHTML='password 不能为空';return false}
var X=new ActiveXObject("Msxml2.XMLHTTP");
if(X){
GE('regsubmit').disabled=true;
X.onreadystatechange=function(){
if(X.readyState==4){
if(X.status==200){
eval(X.responseText)
}
else{GE('msg').innerHTML=X.statusText}
}
else{GE('msg').innerHTML="正在提交数据..."}
};
X.open('POST','reg.asp',true);
X.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
var SendData = 'username='+GE('username').value+'&password='+GE('password').value+'&email='+GE('email').value
X.send(SendData)
}
else{
GE('msg').innerHTML='你的浏览器不支持XMLHttpRequest'
}
}
</script>
<style type="text/css">
<!--
#msg {
color: #FF0000;
}
-->
</style>
</head>
<body>
<div id="msg"></div>
<h2>Ajax应用实例: asp+mdb数据库注册模块例子</h2>
ID:
<label>
<input name="username" type="text" id="username" size="20" maxlength="20" />
</label>
Password:
<input name="password" type="password" id="password" size="20" maxlength="20" />
email
<label>
<input name="email" type="text" id="email" size="20" maxlength="100" />
</label>
<input type="submit" id="regsubmit" value="注册" onclick="Check()" />
</body>
</html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Ajax - Sample1</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!--请一定要将此页的编码设为UTF-8,否则aixq将com出现乱码 else's blog-->
<meta http-equiv="pragma" content="no-cache"/>
<script language="javascript" type="text/javascript">
function GE(a){return document.getElementById(a);}
function Check(){
if(GE('username').value==''){GE('msg').innerHTML='用名不能为空';return false}
if(GE('password').value==''){GE('msg').innerHTML='password 不能为空';return false}
var X=new ActiveXObject("Msxml2.XMLHTTP");
if(X){
GE('regsubmit').disabled=true;
X.onreadystatechange=function(){
if(X.readyState==4){
if(X.status==200){
eval(X.responseText)
}
else{GE('msg').innerHTML=X.statusText}
}
else{GE('msg').innerHTML="正在提交数据..."}
};
X.open('POST','reg.asp',true);
X.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
var SendData = 'username='+GE('username').value+'&password='+GE('password').value+'&email='+GE('email').value
X.send(SendData)
}
else{
GE('msg').innerHTML='你的浏览器不支持XMLHttpRequest'
}
}
</script>
<style type="text/css">
<!--
#msg {
color: #FF0000;
}
-->
</style>
</head>
<body>
<div id="msg"></div>
<h2>Ajax应用实例: asp+mdb数据库注册模块例子</h2>
ID:
<label>
<input name="username" type="text" id="username" size="20" maxlength="20" />
</label>
Password:
<input name="password" type="password" id="password" size="20" maxlength="20" />
<label>
<input name="email" type="text" id="email" size="20" maxlength="100" />
</label>
<input type="submit" id="regsubmit" value="注册" onclick="Check()" />
</body>
</html>
reg.asp
收藏一个ajax的例子 注册检测
[ 2007/08/04 01:13 | by Else ]
2007/08/04 01:13 | by Else ]
t.htm
t.asp
<script>
function f(){
var req =new ActiveXObject("Microsoft.XMLHTTP");
req.open("GET","t.asp?t1="+t1.value, true);
req.onreadystatechange = function(){
if (req.readyState == 4) {
if (req.status == 200) {
msg.innerText = req.responseXML.documentElement.tagName;
}
}
}
req.send(null);
}
</script>
<div>1：显示"OK"; 其他字符:显示"Error"</div>
<input id=t1 value=1>
<input type=button value="检测" onclick="javascript:f()">
<div id=msg></div>
function f(){
var req =new ActiveXObject("Microsoft.XMLHTTP");
req.open("GET","t.asp?t1="+t1.value, true);
req.onreadystatechange = function(){
if (req.readyState == 4) {
if (req.status == 200) {
msg.innerText = req.responseXML.documentElement.tagName;
}
}
}
req.send(null);
}
</script>
<div>1：显示"OK"; 其他字符:显示"Error"</div>
<input id=t1 value=1>
<input type=button value="检测" onclick="javascript:f()">
<div id=msg></div>
t.asp
<%
Response.ContentType="text/xml"
if request.querystring("t1")="1" then
response.write("<OK/>")
else
response.write("<ERROR/>")
end if
%>
Response.ContentType="text/xml"
if request.querystring("t1")="1" then
response.write("<OK/>")
else
response.write("<ERROR/>")
end if
%>
mssql的企业管理器出了问题了!
[ 2007/08/02 07:06 | by Else ]
2007/08/02 07:06 | by Else ]
引用
开始菜单-->运行-->mmc-->按ctrl+m-->按Alt+D-->找到企业管理器-->按Alt+A-->按Alt+D-->关闭-->确定-->按Ctrl+S-->OK
phper就帅哥的一个函数 作者:lonce
[ 2007/07/31 11:10 | by Else ]
2007/07/31 11:10 | by Else ]
lonce(79610510) 11:05:32
function make_semiangle($str)
{ $arr = array('０' => '0', '１' => '1', '２' => '2', '３' => '3', '４' => '4', '５' => '5', '６' => '6', '７' => '7', '８' => '8', '９' => '9', 'Ａ' => 'A', 'Ｂ' => 'B', 'Ｃ' => 'C', 'Ｄ' => 'D', 'Ｅ' => 'E', 'Ｆ' => 'F', 'Ｇ' => 'G', 'Ｈ' => 'H', 'Ｉ' => 'I', 'Ｊ' => 'J', 'Ｋ' => 'K', 'Ｌ' => 'L', 'Ｍ' => 'M', 'Ｎ' => 'N', 'Ｏ' => 'O','Ｐ' => 'P', 'Ｑ' => 'Q', 'Ｒ' => 'R', 'Ｓ' => 'S', 'Ｔ' => 'T', 'Ｕ' => 'U', 'Ｖ' => 'V', 'Ｗ' => 'W', 'Ｘ' => 'X', 'Ｙ' => 'Y', 'Ｚ' => 'Z', 'ａ' => 'a', 'ｂ' => 'b', 'ｃ' => 'c', 'ｄ' => 'd', 'ｅ' => 'e', 'ｆ' => 'f', 'ｇ' => 'g', 'ｈ' => 'h', 'ｉ' => 'i','ｊ' => 'j', 'ｋ' => 'k', 'ｌ' => 'l', 'ｍ' => 'm', 'ｎ' => 'n', 'ｏ' => 'o', 'ｐ' => 'p', 'ｑ' => 'q', 'ｒ' => 'r', 'ｓ' => 's', 'ｔ' => 't', 'ｕ' => 'u', 'ｖ' => 'v', 'ｗ' => 'w', 'ｘ' => 'x','ｙ' => 'y', 'ｚ' => 'z', '（' => '(', '）' => ')', '［' => '[', '］' => ']', '【' => '[', '】' => ']', '〖' => '[', '〗' => ']', '「' => '[', '」' => ']', '『' => '[', '』' => ']', '｛' => '{', '｝' => '}', '《' => '<', '》' => '>', '％' => '%', '＋' => '+', '—' => '-', '－' => '-', '～' => '-', '：' => ':', '。' => '.', '、' => ',', '，' => '.', '、' => '.', '；' => ',', '？' => '?', '！' => '!', '…' => '-', '‖' => '|', '＂' => '"', '＇' => '`', '｀' => '`', '｜' => '|', '〃' => '"', ' ' => ' ');
return strtr($str, $arr);
}
function make_semiangle($str)
{ $arr = array('０' => '0', '１' => '1', '２' => '2', '３' => '3', '４' => '4', '５' => '5', '６' => '6', '７' => '7', '８' => '8', '９' => '9', 'Ａ' => 'A', 'Ｂ' => 'B', 'Ｃ' => 'C', 'Ｄ' => 'D', 'Ｅ' => 'E', 'Ｆ' => 'F', 'Ｇ' => 'G', 'Ｈ' => 'H', 'Ｉ' => 'I', 'Ｊ' => 'J', 'Ｋ' => 'K', 'Ｌ' => 'L', 'Ｍ' => 'M', 'Ｎ' => 'N', 'Ｏ' => 'O','Ｐ' => 'P', 'Ｑ' => 'Q', 'Ｒ' => 'R', 'Ｓ' => 'S', 'Ｔ' => 'T', 'Ｕ' => 'U', 'Ｖ' => 'V', 'Ｗ' => 'W', 'Ｘ' => 'X', 'Ｙ' => 'Y', 'Ｚ' => 'Z', 'ａ' => 'a', 'ｂ' => 'b', 'ｃ' => 'c', 'ｄ' => 'd', 'ｅ' => 'e', 'ｆ' => 'f', 'ｇ' => 'g', 'ｈ' => 'h', 'ｉ' => 'i','ｊ' => 'j', 'ｋ' => 'k', 'ｌ' => 'l', 'ｍ' => 'm', 'ｎ' => 'n', 'ｏ' => 'o', 'ｐ' => 'p', 'ｑ' => 'q', 'ｒ' => 'r', 'ｓ' => 's', 'ｔ' => 't', 'ｕ' => 'u', 'ｖ' => 'v', 'ｗ' => 'w', 'ｘ' => 'x','ｙ' => 'y', 'ｚ' => 'z', '（' => '(', '）' => ')', '［' => '[', '］' => ']', '【' => '[', '】' => ']', '〖' => '[', '〗' => ']', '「' => '[', '」' => ']', '『' => '[', '』' => ']', '｛' => '{', '｝' => '}', '《' => '<', '》' => '>', '％' => '%', '＋' => '+', '—' => '-', '－' => '-', '～' => '-', '：' => ':', '。' => '.', '、' => ',', '，' => '.', '、' => '.', '；' => ',', '？' => '?', '！' => '!', '…' => '-', '‖' => '|', '＂' => '"', '＇' => '`', '｀' => '`', '｜' => '|', '〃' => '"', ' ' => ' ');
return strtr($str, $arr);
}
select * into a from b;
我今天用一个
<input name="sevselect[]" type="checkbox" value="1" /><span title="Brumaire(FR)">Brumaire(FR)</span> 
<input name="sevselect[]" type="checkbox" value="2" /><span title="Djaul(FR)">Djaul(FR)</span> 
<input name="sevselect[]" type="checkbox" value="3" /><span title="Domen(FR)">Domen(FR)</span> 
<input name="sevselect[]" type="checkbox" value="4" /><span title="Hecate(FR)">Hecate(FR)</span> 
<input name="sevselect[]" type="checkbox" value="5" /><span title="Jiva(FR)">Jiva(FR)</span> 
<br />
<input name="sevselect[]" type="checkbox" value="6" /><span title="Maimane(FR)">Maimane(FR)</span> 
<input name="sevselect[]" type="checkbox" value="7" /><span title="Menalt(FR)">Menalt(FR)</span> 
<input name="sevselect[]" type="checkbox" value="8" /><span title="Pouchecot(FR)">Pouchecot(FR)</span> 
<input name="sevselect[]" type="checkbox" value="9" /><span title="Raval(FR)">Raval(FR)</span> 
<input name="sevselect[]" type="checkbox" value="10" /><span title="Rosal(EU)">Rosal(EU)</span> 
<br />
这些代码的时候,然后在用<input name="sevselect[]" type="checkbox" value="2" /><span title="Djaul(FR)">Djaul(FR)</span> 
<input name="sevselect[]" type="checkbox" value="3" /><span title="Domen(FR)">Domen(FR)</span> 
<input name="sevselect[]" type="checkbox" value="4" /><span title="Hecate(FR)">Hecate(FR)</span> 
<input name="sevselect[]" type="checkbox" value="5" /><span title="Jiva(FR)">Jiva(FR)</span> 
<br />
<input name="sevselect[]" type="checkbox" value="6" /><span title="Maimane(FR)">Maimane(FR)</span> 
<input name="sevselect[]" type="checkbox" value="7" /><span title="Menalt(FR)">Menalt(FR)</span> 
<input name="sevselect[]" type="checkbox" value="8" /><span title="Pouchecot(FR)">Pouchecot(FR)</span> 
<input name="sevselect[]" type="checkbox" value="9" /><span title="Raval(FR)">Raval(FR)</span> 
<input name="sevselect[]" type="checkbox" value="10" /><span title="Rosal(EU)">Rosal(EU)</span> 
<br />
$arrserv = $HTTP_POST_VARS['sevselect'];
的时候,无法得到数组的值!
