asp 空字符串判断的方法
[ 2007-05-02 07:23:55 | 作者: Admin ]
if len(rs("name“))>0 then
name=Server.HTMLEncode(rs("name"))
end if
name=Server.HTMLEncode(rs("name"))
end if
google工具条的PageRank不停乱跳
[ 2007-04-27 19:59:48 | 作者: Admin ]
测试环境
Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-CN; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.3
Winxp sp2
测试页面
http://news.qq.com/a/20070427/000828.htm
工具条配置
只保留PageRank一个控件
现象
工具条在 PageRank 和 PageRank>> 之间不停转换跳动
Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-CN; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.3
Winxp sp2
测试页面
http://news.qq.com/a/20070427/000828.htm
工具条配置
只保留PageRank一个控件
现象
工具条在 PageRank 和 PageRank>> 之间不停转换跳动
access数据库文本字段通过asp转换输出函数
[ 2007-04-27 02:03:03 | 作者: Admin ]
将access数据库文本字段的数据，通过asp转换，输出到浏览器的转换函数如下
function Convert(strSrc)
Convert = strSrc
'Convert = Server.HTMLEncode(Replace(Trim(strSrc), "'", "’"))
Convert = Replace(Convert, chr(13), "<br>")
'Convert = Replace(Convert,"&","&")
'Convert = Replace(Convert,">",">")
'Convert = Replace(Convert,"<","<")
'Convert = Replace(Convert,""","'")
Convert=replace(Convert,CHR(32)," ") '空格
Convert=replace(Convert,CHR(9)," ") 'table
...
阅读全文...
function Convert(strSrc)
Convert = strSrc
'Convert = Server.HTMLEncode(Replace(Trim(strSrc), "'", "’"))
Convert = Replace(Convert, chr(13), "<br>")
'Convert = Replace(Convert,"&","&")
'Convert = Replace(Convert,">",">")
'Convert = Replace(Convert,"<","<")
'Convert = Replace(Convert,""","'")
Convert=replace(Convert,CHR(32)," ") '空格
Convert=replace(Convert,CHR(9)," ") 'table
...
阅读全文...
我的网站被www.yahoo.com www.sina.com.cn收录
[ 2007-04-26 08:38:00 | 作者: Admin ]
今天能在英文雅虎上找到我的网站了，收录了一个页面，一个 Inlinks
但不能用任何关键字搜索到我的网页
等有空了做个英文页面试试看
http://www.sina.com.cn/ 终于有反应了
收录了两个页面
但不能用任何关键字搜索到我的网页
等有空了做个英文页面试试看
http://www.sina.com.cn/ 终于有反应了
收录了两个页面
javascrupt 数据库操作代码示例
[ 2007-04-24 19:22:01 | 作者: Admin ]
<script language="javascript" runat="server">
//用 JavaScript 写服务器端连接数据库的代码示例
var conn = new ActiveXObject("ADODB.Connection");
conn.Open("Provider=SQLOLEDB.1; Data Source=localhost; User ID=sa; "
+"Password=password; Initial Catalog=meizz");
var rs = new ActiveXObject("ADODB.Recordset");
var sql="select user_kind from tbRightSet where user_id='"+ Account +"'";
rs.open(sql, conn);
...
阅读全文...
//用 JavaScript 写服务器端连接数据库的代码示例
var conn = new ActiveXObject("ADODB.Connection");
conn.Open("Provider=SQLOLEDB.1; Data Source=localhost; User ID=sa; "
+"Password=password; Initial Catalog=meizz");
var rs = new ActiveXObject("ADODB.Recordset");
var sql="select user_kind from tbRightSet where user_id='"+ Account +"'";
rs.open(sql, conn);
...
阅读全文...
一个JavaScript的测试程序
[ 2007-04-24 17:14:08 | 作者: Admin ]
<html>
<head>
<title>一个JavaScript的测试程序</title>
<script language="JavaScript">
<!--
function kkk(){
do{
username=prompt("请问您是何方神圣，报上名来","");
}while(username=="")
document.write(username,",久仰大名，请多多关照！");
}
//-->
</script>
</head>
<body>
<INPUT type="button" value="确认"name=button1 onClick="kkk()">
</body>
</html>
<head>
<title>一个JavaScript的测试程序</title>
<script language="JavaScript">
<!--
function kkk(){
do{
username=prompt("请问您是何方神圣，报上名来","");
}while(username=="")
document.write(username,",久仰大名，请多多关照！");
}
//-->
</script>
</head>
<body>
<INPUT type="button" value="确认"name=button1 onClick="kkk()">
</body>
</html>
一个查询能美国的 IP 地址的网站
[ 2007-04-24 16:24:22 | 作者: Admin ]
http://www.ip2location.com/demo.aspx
查中国的IP也很准确
查中国的IP也很准确
firefox 不支持 vbscript 和 activeX
[ 2007-04-24 16:01:20 | 作者: Admin ]
花了一天的时间，下面代码还是不能正常运行，
在网上搜索了一下，原来是firefox 不支持 vbscript ，晕。
<HTML>
<HEAD><TITLE>一个简单首页</TITLE>
<SCRIPT LANGUAGE="VBScript" EVENT="OnClick" FOR="Button1">
<!--
MsgBox "测试成功."
document.write("1")
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>一个简单首页</H3><HR>
<FORM><INPUT NAME="Button1" TYPE="BUTTON" VALUE="单击此处" ></FORM>
</BODY>
</HTML>
在网上搜索了一下，原来是firefox 不支持 vbscript ，晕。
<HTML>
<HEAD><TITLE>一个简单首页</TITLE>
<SCRIPT LANGUAGE="VBScript" EVENT="OnClick" FOR="Button1">
<!--
MsgBox "测试成功."
document.write("1")
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>一个简单首页</H3><HR>
<FORM><INPUT NAME="Button1" TYPE="BUTTON" VALUE="单击此处" ></FORM>
</BODY>
</HTML>
用 \ 和 C语言一样
asp是怎么输出引号的？
1.用""代替一个",
<%response.Write(" ""aaaaa"" ") %>
2.直接输出chr(34)
<%response.Write("aaaa "&chr(34)&"bbb"&chr(34)) %>
asp是怎么输出引号的？
1.用""代替一个",
<%response.Write(" ""aaaaa"" ") %>
2.直接输出chr(34)
<%response.Write("aaaa "&chr(34)&"bbb"&chr(34)) %>
asp 字符编码转换
[ 2007-04-23 15:47:25 | 作者: Admin ]
string=Server.HTMLEncode("要转换的串")
asp 输出调试信息
[ 2007-04-23 15:36:17 | 作者: Admin ]
response.write("debug info" )
asp 形成 html 代码
[ 2007-04-23 15:34:25 | 作者: Admin ]
<% 变量="输出文本" %>
<% =变量 %>
<% =变量 %>
