一堆常用JS代码

最新推荐文章于 2022-10-16 09:30:00 发布

weixin_30377461

最新推荐文章于 2022-10-16 09:30:00 发布

阅读量375

点赞数

文章标签：数据库 xhtml javascript ViewUI

原文链接：http://www.cnblogs.com/qyz123/archive/2007/12/18/1003844.html

版权

1、浏览器无法运行JAVA脚本的解决方法。

rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%System32dacui.dll
rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%Catrooticatalog.mdb
regsvr32 /s comcat.dll
regsvr32 /s asctrls.ocx
regsvr32 /s oleaut32.dll
regsvr32 /s shdocvw.dll /I
regsvr32 /s shdocvw.dll
regsvr32 /s browseui.dll
regsvr32 /s browseui.dll /I
regsvr32 /s msrating.dll
regsvr32 /s mlang.dll
regsvr32 /s hlink.dll
regsvr32 /s mshtml.dll
regsvr32 /s mshtmled.dll
regsvr32 /s urlmon.dll
regsvr32 /s plugin.ocx
regsvr32 /s sendmail.dll
regsvr32 /s mshtml.dll /i
regsvr32 /s scrobj.dll
regsvr32 /s corpol.dll
regsvr32 /s jscript.dll
regsvr32 /s msxml.dll
regsvr32 /s imgutil.dll
regsvr32 /s cryptext.dll
regsvr32 /s inseng.dll
regsvr32 /s iesetup.dll /i
regsvr32 /s cryptdlg.dll
regsvr32 /s actxprxy.dll
regsvr32 /s dispex.dll
regsvr32 /s occache.dll
regsvr32 /s iepeers.dll
regsvr32 /s urlmon.dll /i
regsvr32 /s cdfview.dll
regsvr32 /s webcheck.dll
regsvr32 /s mobsync.dll
regsvr32 /s pngfilt.dll
regsvr32 /s licmgr10.dll
regsvr32 /s hhctrl.ocx
regsvr32 /s inetcfg.dll
regsvr32 /s trialoc.dll
regsvr32 /s tdc.ocx
regsvr32 /s MSR2C.DLL
regsvr32 /s msident.dll
regsvr32 /s msieftp.dll
regsvr32 /s xmsconf.ocx
regsvr32 /s ils.dll
regsvr32 /s msoeacct.dll
regsvr32 /s wab32.dll
regsvr32 /s wabimp.dll
regsvr32 /s wabfind.dll
regsvr32 /s oemiglib.dll
regsvr32 /s directdb.dll
regsvr32 /s inetcomm.dll
regsvr32 /s msoe.dll
regsvr32 /s oeimport.dll
regsvr32 /s msdxm.ocx
regsvr32 /s dxmasf.dll
regsvr32 /s laprxy.dll
regsvr32 /s l3codecx.ax
regsvr32 /s acelpdec.ax
regsvr32 /s mpg4ds32.ax
regsvr32 /s danim.dll
regsvr32 /s Daxctle.ocx
regsvr32 /s lmrt.dll
regsvr32 /s datime.dll
regsvr32 /s dxtrans.dll
regsvr32 /s dxtmsft.dll
regsvr32 /s wshom.ocx
regsvr32 /s wshext.dll
regsvr32 /s vbscript.dll
regsvr32 /s scrrun.dll mstinit.exe /setup
regsvr32 /s msnsspc.dll /SspcCreateSspiReg
regsvr32 /s msapsspc.dll /SspcCreateSspiReg
echo 修复成功！任意键退出！
pause>nul
///改为.bat扩展名然后运行就OK了.

2、XP正版验证序列号
cdkey: BYCMB-R844W-KJBQX-J3D9F-V3Y6G
       DFXFM-DKWTG-MYDWJ-68DQF-YBCYG
       TB7JC-3VJKY-J3VMR-PP8TP-HMTWY
       KR88V-RCBCB-D78QP-V4FF9-JW77M

3、IE无法打开新窗口解决方法
1、在“开始”菜单中打开“运行”窗口，在其中输入“regsvr32 actxprxy.dll”，然后“确定”，接着会出现一个信息对话框“DllRegisterServ erinactxprxy.dllsucceeded”，再次点击“确定”。
2、再次打开“运行”窗口，输入“regsvr32 shdocvw.dll”，“确定”后在出现的信息对话框中点击“确定”。
3、重新启动Windows，运行IE，随便打开一个网页，点击一个超链接，你会发现IE又能打开新窗口。再试试用鼠标右键选择“在新窗口打开”，问题解决。如果还不能解决此问题，建议再将以下其它几个dll文件进行注册。
主要注册以下几个dll文件：
regsvr32mshtml.dll
regsvr32urlmon.dll
regsvr32msjava.dll
regsvr32shdocvw.dll
regsvr32browseui.dll
regsvr32actxprxy.dll
regsvr32oleaut32.dll
regsvr32shell32.dll

4、将文本输入框的背景设置成透明
<input style="background-color: transparent">

5、让新窗口居中显示
<script language=javascript>

</script>
<a onClick="MM_openBrWindow('http:///','','width=420,height=390')">点击新窗口</a>

6、“系统将要在XX秒后关机”对于这可以使用命令阻止其关机
点开运行－－>输入shutdown -a即可阻止

7、将全角的字符转变成半角字符，将半角转变成全角
<%
Function DSConvert(vString,vFlag)
     Rem vFlag为0时表示从全角转为半角,为其他时表示从半角转为全角
     Dim i,tmpSingleCharaASC,TempResult,SAscString,DAscString
     SAscString = "1,2,3,4,5,6,7,8,14,15,16,17,18,19,20,21,22,23,24,25,26,27,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126"

DAscString = "-23679,-23678,-23677,-23676,-23675,-23674,-23673,-23672,-23666,-23665,-23664,-23663,-23662,-23661,-23660,-23659,-23658,-23657,-23656,-23655,-23654,-23653,-23647,-23646,-23645,-23644,-23643,-23642,-23641,-23640,-23639,-23638,-23637,-23636,-23635,-23634,-23633,-23632,-23631,-23630,-23629,-23628,-23627,-23626,-23625,-23624,-23623,-23622,-23621,-23620,-23619,-23618,-23617,-23616,-23615,-23614,-23613,-23612,-23611,-23610,-23609,-23608,-23607,-23606,-23605,-23604,-23603,-23602,-23601,-23600,-23599,-23598,-23597,-23596,-23595,-23594,-23593,-23592,-23591,-23590,-23589,-23588,-23587,-23586,-23585,-23584,-23583,-23582,-23581,-23580,-23579,-23578,-23577,-23576,-23575,-23574,-23573,-23572,-23571,-23570,-23569,-23568,-23567,-23566,-23565,-23564,-23563,-23562,-23561,-23560,-23559,-23558,-23557,-23556,-23555,-23554"

     TempResult = ""
     If Len(vString) <= 0 Then Response.Write "Parameters Error! Please Check Your Parameters!" : Response.End : Exit Function
     For i=1 to Len(vString)
           tmpSingleCharaASC = Asc(Mid(vString,i,1))
           If vFlag = 0 Then
                 If InStr(DAscString,tmpSingleCharaASC) <> 0 and len(Cstr(tmpSingleCharaASC)) = 6 Then
                       TempResult = TempResult & Chr(tmpSingleCharaASC+23680)
                 Else
                       TempResult = TempResult & Chr(tmpSingleCharaASC)
                 End If
           Else
                 If InStr(SAscString,tmpSingleCharaASC) <> 0 and Len(Cstr(tmpSingleCharaASC))<=4 Then
                       TempResult = TempResult & Chr(tmpSingleCharaASC-23680)
                 Else
                       TempResult = TempResult & Chr(tmpSingleCharaASC)
                 End If
           End If
     Next
     DSConvert = TempResult
End Function
%>
全角转半角
<%= DSConvert("１２３４５６６４６５４５４",0)%>
半角转全角
<%= DSConvert("1234567890132131",1)%>

8、CInt() 将一个表达式转化为数字类型 CStr() 　将一个表达式转化为字符串.

9、单击一个姓名,然后在文本框中显示
<span οnclick="document.getElementById('target').value=this.innerText">小刚</span>
<input type="text" id="target">

10、用相对定位和负向移动完成图片象框阴影
<style>
.out {
position:relative;
background:#bbb;
margin:10px auto;
width:285px
}
.in {
background:#fff;
border:1px solid #555;
padding:5px 5px;
position:relative;
top:-5px;
left:-5px;
}
</style><div class="out"> <div class="in" > <img src="http://www.makewing.com/lanren/jscode/js-0058/images/01.jpg" alt="" /> </div></div>

11、在已有数据库中创建表
<% set conn=server.CreateObject("adodb.connection")
sql="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("BOOK.mdb")
conn.open sql
Conn.Execute("create table bbb(id AUTOINCREMENT(1,1),p_id text(100),ee money,ff datetime default date(),gg guid,hh single default 50,ii double,jj smallint,kk long,ll image,mm memo,oo yesno not null,pp TINYINT,qq numeric(18,4),aa binary,bb bit,cc smallint,)")
%>

　　◆'将a表另外复制一个b表（只复制结构，不含数据）
　　＜%
　　Set rs= Server.CreateObject("ADODB.Recordset")
　　sql="select * into b from a where 1=0"
　　rs.open sql,conn,1,1
　　rs.update
　　rs.close
　　set rs=nothing
　　%＞
　　◆'将a表另外复制一个b表（包括制结构和数据）
　　＜%
　　Set rs= Server.CreateObject("ADODB.Recordset")
　　sql="select * into b from a
　　rs.open sql,conn,1,1
　　rs.update
　　rs.close
　　set rs=nothing
　　%＞

12、新建数据库并新建表
<%
'首先建立一个数据库文件
set conn=server.createobject("adox.catalog")
conn.create "provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath("lifeda1.mdb")
%>
<%
'向该数据库中建立相应表格
set rs=server.createobject("adox.table")
'该表格名称
rs.name="aaaa"
'该表格字段(字段类型见相关附录)
rs.columns.append "id" ,3
rs.columns.append "liuyan",203
rs.columns.append "dt",7
conn.tables.append rs
set rs=nothing
%>
至此，表格建立完毕。希望能对您有帮助。
字段类型附录
203 备注
7 日期/时间
128 二进制
11 布尔
6 货币
133 日期
134 时间
135 日期时间
5 双精度
4 单精度
3 数字
204 二进制
202 字符串

13、显示框架内的指定位置
<div style='width:300px;height:300px;'><iframe src='http://163.com' style='margin:-100px;width:100%;height:100%'></iframe></div>

14、加密与解密函数
<%function decrypt(dcode)
dim texts
dim i
for i=1 to len(dcode)
texts=texts & chr(asc(mid(dcode,i,2))-i)
next
decrypt=texts
end function
function encrypt(ecode)
Dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,2))+i)
next
encrypt = texts
end function
%>

<%=decrypt(123123)%>
<a href="11111.asp?id=<%=decrypt("sdfasdfs")%>">111111111</a>
<%abc=encrypt(request("id"))%><%=abc%>

15、当前页地址
<%dim urlname
urlname=Request.ServerVariables("QUERY_STRING")%>
<%=Request.ServerVariables("SCRIPT_NAME")%><%if urlname<>"" then%>?<%=urlname%><%end if%>

16、改变文本框的属性（确定按钮）
<form id="form1" name="form1" method="post" action="">
<input name="text" type="text" value="sdafasdfasdf" id="name"/>
<input type="button" name="Submit" value="更改" onClick="tot()"/>
</form>
<SCRIPT LANGUAGE="JavaScript">

</SCRIPT>

注：以下的readOnly的O必须为大写r必须为小写
<SCRIPT LANGUAGE="JavaScript">

</SCRIPT>

17、改变文本框的属性（单选按钮）

}
function cStylehidde()
{

document.all.name.disabled=true;

}

-->
</script>

<input name='a1' type='radio' value='yes' checked οnclick='cStyleshow()'>1
<input name='a1' type='radio' value='no' checked οnclick='cStylehidde()'>2

18、改变文本框的属性（下拉列表）

19、点击整页变灰的效果（可做退出效果）。
注：页面头部必须加上
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
否则效果不能实现

20、让网页框架透明
IE5.5和NN6以上的浏览器支持Frame，Iframe对象的allowTransparency方法，如果某对象的背景颜色设置为Transparency的，它将继承包含它容器的特性。我们可以通过这个特性实现透明背景的开/关。
代码如下：
a.html如下：
<HTML><HEAD><TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
</HEAD>
<BODY style="BACKGROUND-COLOR: transparent">
<H1>透明文档</H1>
<P>此IFRAME无背景颜色</P>
<P>BODY：<br><BODY STYLE="background-color:transparent"></P></BODY></HTML>

iframe
<IFRAME ID="frame1" SRC="a.html" allowTransparency="true" HEIGHT=180 WIDTH=300> </IFRAME>

21、底部对齐的代码：

22、点击提示“确定”与“取消”提示框
οnclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}'

23、删除.LDB文件
<%
Application.Contents.Removeall()
%>

24、将HTML格式转换为纯文本格式
<%
Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)

' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
     strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function

%>
调用
<%=RemoveHTML(你的字段)%>