荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: nicq (NoName), 信区: Homepage
标 题: asp代码精华(十)
发信站: 荔园晨风BBS站 (Wed Apr 23 13:30:27 2003), 站内信件
<!--检测输入值是否是一个数字NaN(Not a Number)-->
<form name=frm>
<input type=text size=10 name=num>
<input type=button onclick="checknum()" value="click me">
</form>
<script language=javascript>
function checknum()
{
if (isNaN(frm.num.value))
{
alert("请输入数字");
frm.num.focus();
}
}
//去掉首尾空格
function trim(s)
{
var i;
for (i = 0; i < s.length && s.charCodeAt(i) == 32; i ++);
s = s.substring(i, s.length);
for (i = s.length - 1; i >= 0 && s.charCodeAt(i) == 32; i--);
s = s.substring(0, i + 1);
return s;
}
//
String.prototype.trim = function(){
return this.replace(/(^\s*)|(\s*$)/g,"");
}
//使用例: alert(" abc ".trim().length);
//去掉首尾空格
</script>
<script language=javascript>
function jstrim(s)
{
return s.replace(/(^\s*)|(\s*$)/g,"");
}
//使用例: alert(trim(" abc ").length);
//去除字符串中的所有空格包括中文全角空格。
function delspace(mxh)
{
var sss=""
for(var i=0;i<mxh.length;i++){
if((mxh.charAt(i)==" ") || (mxh.charAt(i)==" "))
sss+=""
else
sss+=mxh.charAt(i)
return sss
}
alert("您输入的字符是："+mxh+"\n\n去除空格后的字符是："+sss) //作为例子，这里弹
出结果
//return sss
}
</script>
<!--这是script示例--->
<script language=vbscript>
</script>
<script language=javascript>
</script>
<input name=mxh1>
<input type=button onclick="delspace(mxh1.value)" value=测试>
</script>
<!--去掉首尾空格-->
<script language=vbscript>
function jstrim()
dim str
frm.num.value=trim(frm.num.value)
end function
</script>
<!--在form页面之外取得radio定义的radio取值-->
<form name=frm>
<input type=text size=10 name=num1>
</form>
<input id=a type=radio name=radio value=1>1 <input id=b type=radio name=radio
value=2>2
<script language=javascript>
alert(document.all("a").value)
//判断对象的类型是否是radio
radio1.type=="radio"
//改变iframe中的页面。
document.frames("iFrameID").document.URL="XXX.html"
</script>
<!--页面初始化调用其他函数-->
<body bgcolor="menu" onload="InitDocument();" STYLE="margin:0pt;padding:0pt"
oncontextmenu="return false">
<!--创建无边框的iframe;scrolling=1对于编辑区的iframe则是添加左右拉动框-->
<iframe width="100%" src='inneraddfile.asp' frameborder=0 marginwidth=0
marginheight=0 height=50 scrolling="1">
您的浏览器不支持框架，请用IE4或NS5以上浏览器。</iframe>
</td>
<!--iframe所属的层次操作，z-index只有IE5.5及上可以进行操作-->
<IFRAME SRC="frame.htm" STYLE="z-index:1" ></IFRAME>
<iframe class="Composition" ID="Composition" MARGINHEIGHT="1" MARGINWIDTH="1"
width="100%" height="400" oncontextmenu="return false" scrolling="1">
<!--框架操作iframe-->
<script language=javascript>
str='<IMG alt="" src="'+'<%=tempfilename%>'+'" align=baseline border=0>'
;
//InitDocument();
//alert(str);
/*
将str直接加入到框架iframe的内容(
opener.Composition.document.body.innerHTML)中会对str中的字串进行
server.htmlencode操作，所以可以采用下面的方面将框架内容和str中的内容合并。
*/
opener.parent.form1.content.value=opener.Composition.document.body.innerHTML+str
;
//alert(opener.parent.form1.content.value);
opener.Composition.document.body.innerHTML=opener.parent.form1.content.value;
window.close();
opener.window.focus();
</script>
<!--修改iframe的颜色-->
<iframe src=aaa.htm border=0 bgcolor=blue height=400 width=500></iframe>
<!--在iframe中调用变量值-->
<iframe src="b.htm" id=mxh>
</iframe>
<script language=javascript>
form2.date2.value=document.frames("mxh")
.document.form1.senddate1(ipos).value;
//此句无无效 document.all.mxh.formname.text.value
</script>
b.htm文件中
<form name="formname">
<input type="text" name="txt">
</form>
<script>
//iframe的显示与隐藏
function show(ifm){
obj = document.all[ifm];
display=obj.style.display;
obj.style.display=(display=="block")?"none":"block";
}
</script>
<input type=button onclick="show('kk')" value="Show/Hide">
<iframe id=kk src="http://www.csdn.net" border="1" frameborder="1" width="100"
height="100" style="display:none"></iframe>
<!--设置text文本输入框的大小-->
<input id=text1 name=num style="HEIGHT: 22px; WIDTH: 43px" class="inputbox">
<!--点击事件捕捉-->
<script language="javascript">
function document.body.onclick()
{
if (event.srcElement.tagName == "BODY")
alert("here");
}
</script>
< %'---------------读access库中的表名-------------------------
SET Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&
Server.MapPath("库名称")
Set rstSchema=Conn.OpenSchema(20)
Do Until rstSchema.EOF
Response.Write "Table name:"& rstSchema(2)& "< br> "& "Table
type:"& rstSchema(3)& "< br> < br> "
rstSchema.MoveNext
Loop
%>
< %'---------------读sql server库中的表名-------------------------
SET Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Server=IP地址;Provider=sqloledb;Database=库名称;UID=用户名;
PWD=密码;"
Set rstSchema=Conn.OpenSchema(20)
Do Until rstSchema.EOF
Response.Write "Table name:"& rstSchema(2)& "< br> "& "Table
type:"& rstSchema(3)& "< br> < br> "
rstSchema.MoveNext
Loop
%>
< %'---------------读oracle库中的表名-------------------------
SET Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=MSDAORA.1;Password=密码;User ID=用户名;Data
Source=数据源名称"
Set rstSchema=Conn.OpenSchema(20)
Do Until rstSchema.EOF
Response.Write "Table name:"& rstSchema(2)& "< br> "& "Table
type:"& rstSchema(3)& "< br> < br> "
rstSchema.MoveNext
Loop
%>
只要用相应的数据库代替以上的中文就可以
问题2：
用sql语句select into
--
(S-Term)Sorry, i'm not here
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.0.180]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店