升级!也散一点代码

Question

4.文本输出的格式保持
强制换行在表格里面用：<td width=* style="WORD-BREAK: break-all"> 输出写个函数吧：
<%
Function coder(str)
 Dim result,L,i
 If IsNull(str) Then : coder="" : Exit Function : End If
 L=Len(str) : result=""
For i = 1 to L
  select case mid(str,i,1)
case "<"     : result=result+"&lt;"
case ">"     : result=result+"&gt;"
case chr(34) : result=result+"&quot;"
case "&"     : result=result+"&amp;"
case chr(13) : result=result+"<br/>"
case chr(9)  : result=result+"&nbsp; &nbsp; "
case chr(32) : result=result+"&nbsp;"
case else    : result=result+mid(str,i,1)
  end select
Next
 coder=result
End Function %>
５．取得控件的绝对位置
<script language="Javascript">
function getIE(e)
{
   var t=e.offsetTop;
   var l=e.offsetLeft;
   while(e=e.offsetParent)
   {
      t+=e.offsetTop;
      l+=e.offsetLeft;
   }
   alert("top="+t+"\nleft="+l);
}
</script>
//VBScript
<script language="VBScript"><!--
function getIE()
  dim t,l,a,b
  set a=document.all.img1
  t=document.all.img1.offsetTop
  l=document.all.img1.offsetLeft
  while a.tagName<>"BODY"
    set a = a.offsetParent
    t=t+a.offsetTop
    l=l+a.offsetLeft
  wend
  msgbox "top="&t&chr(13)&"left="&l,64,"得到控件的位置"
end function
--></script>６．一点关于window.open的参数，应该够用
<SCRIPT LANGUAGE="javascript"> 
<!-- 
window.open ('page.html', 'newwindow', 'height=100, width=400, top=0, left=0, toolbar=no, menubar=no, scrollbars=no,resizable=no,location=no, status=no') 
//写成一行 
--> 
</SCRIPT> 参数解释： <SCRIPT LANGUAGE="javascript"> js脚本开始； 
window.open 弹出新窗口的命令； 
'page.html' 弹出窗口的文件名； 
'newwindow' 弹出窗口的名字（不是文件名），非必须，可用空''代替； 
height=100 窗口高度； 
width=400 窗口宽度； 
top=0 窗口距离屏幕上方的象素值； 
left=0 窗口距离屏幕左侧的象素值； 
toolbar=no 是否显示工具栏，yes为显示； 
menubar，scrollbars 表示菜单栏和滚动栏。 
resizable=no 是否允许改变窗口大小，yes为允许； 
location=no 是否显示地址栏，yes为允许； 
status=no 是否显示状态栏内的信息（通常是文件已经打开），yes为允许；
fullscreen=yes全屏</SCRIPT> js脚本结束７．得到当前页面的地址
<%
Function GetUrl()
  On Error Resume Next
  Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
  End If
  strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
  If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")
  strTemp = strTemp & Request.ServerVariables("URL")
  If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & Trim(Request.QueryString)
  GetUrl = strTemp
End Function
Response.write GetUrl()
%>
８．窗口相关
最小化、最大化、关闭窗口
<object id=hh1 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11"> 
<param name="Command" value="Minimize"></object>
<object id=hh2 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11"> 
<param name="Command" value="Maximize"></object>
<OBJECT id=hh3 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<PARAM NAME="Command" VALUE="Close"></OBJECT>
<input type=button value=最小化 onclick=hh1.Click()>
<input type=button value=最大化 onclick=hh2.Click()>
<input type=button value=关闭 onclick=hh3.Click()>
以上对ie sp1无效
无提示关闭窗口
window.opener=null;
window.close();//ie5.5+以下无效9.表格动态增（删）一行
<SCRIPT LANGUAGE=javascript>
function delCol() {
try {
var Elm = event.srcElement;
while(Elm && Elm.tagName != "TR") {
Elm = Elm.parentElement;
}
if(Elm.parentElement.rows.length <= 1) {
alert("无法删除！");
return;
}
Elm.parentElement.deleteRow(Elm.rowIndex);
} catch(e) {
alert("Err 5001:\r\n" + e);
}
}
function addCol(id) {
try {
var oTable = document.getElementById(id);
if(oTable.tagName != "TABLE")
  alert("Err 5002");
var oList = oTable.children;
var oTBODY;
for(var i=0;i<oList.length;i++) {
if(oList[i].tagName == "TBODY") {
oTBODY = oList[i];
break;
}
}
var oTR = oTBODY.lastChild;
var newTR = oTR.cloneNode(true);
addId(newTR);
oTBODY.insertAdjacentElement("beforeEnd",newTR);
} catch(e) {
alert("Err 5002:\r\n" + e);
}
}
function addId(node) {
try {
if(!node.hasChildNodes()) {
var prefix = node.getAttribute("id").split("_")[0];
var postfix = node.getAttribute("id").split("_")[1];
postfix = parseInt(postfix) + 1;
node.setAttribute("id",prefix + "_" + postfix);
node.setAttribute("value","");
return;
}
} catch(e) {}
try {
var oList = node.childNodes;
for(var i=0;i<oList.length;i++) {
addId(oList[i]);
}
} catch(e) {
alert("Err 5003:\r\n" + e);
}
}
</SCRIPT>
<table width="100%" border="1" align="center" cellpadding="3" cellspacing="1" bordercolor="#000000" class="tableprintable" id="t1" bordercolorlight=”#000000” bordercolordark=”#ffffff”>
                <tr align="center" class="tdbg0"> 
                   <td class="tdbg0"><button class="button" onClick="delCol()"> 
                    删除</button></td>
                </tr>
              </table>
              <button class="button" onClick="addCol('t1')">添加一行</button>
            </td>
          </tr>
        </table>

Answer 1

10．提取与 ASP 相关的服务器或客户端的一些信息
<%
 Dim objBC
 Set objBC=Server.CreateObject("MSWC.BrowserType")
%>
<html><head><style>
td    {font-size: 12px}
.red  {color: #D00000}
.blue {color: #0000D0}
</style><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>提取与 ASP 相关的服务器或客户端的一些信息</title></head><body bgcolor=#85a3ff>
<center><span style="width: 760;font-size:28px;color:#f0f000;font-family:隶书;
position:relative;filter:glow(color=#0060b0, strength=5)">
<b>提取与</b> ASP <b>相关的服务器或客户端的一些信息</b></span></center>
<table border=1 cellSpacing=1 cellPadding=2 align=center width=710
 bordercolorlight="#ACDFCC" bordercolordark="#600000" bgcolor=#ffffff>
  <tr><td colspan=5 class=12 align=right bgcolor=#85a3ff>
      meizz (梅花雨) &nbsp; &nbsp; &nbsp;</td></tr>   
  <tr><td class=blue>浏览器端相关信息：</td>
      <td class=red colspan=4>&nbsp; <%= Request.ServerVariables("http_user_agent") %></td></tr>
  <tr><td class=blue width=140>目前网页虚拟路径：</td>
      <td class=red width=177>&nbsp; <%= Request.ServerVariables("path_info") %></td>     
      <td width=10 rowspan=13 bgcolor=#85a3ff></td>
      <td class=blue width=130>本网页的实际路径：</td>   
      <td class=red width=243>&nbsp; <%= Request.ServerVariables("path_Translated") %></td></tr>  
  <tr><td class=blue>服务器端的IP地址：</td>  
      <td class=red>&nbsp; <%= Request.ServerVariables("local_addr") %></td>  
      <td class=blue>服务器软件的版本：</td>
      <td class=red>&nbsp; <%= Request.ServerVariables("server_software") %></td>  
  <tr><td class=blue>服务器连接口编号：</td>
      <td class=red>&nbsp; <%= Request.ServerVariables("server_port") %></td>  
      <td class=blue>服务器的HTTP版本：</td>
      <td class=red>&nbsp; <%= Request.ServerVariables("server_Protocol") %></td></tr>  
  <tr><td class=blue>远程主机的名称：</td>
      <td class=red>&nbsp; <%= Request.ServerVariables("remote_host") %></td>   
      <td class=blue>远程主机的IP地址：</td>  
      <td class=red>&nbsp; <%= Request.ServerVariables("remote_addr") %></td></tr>  
  <tr><td class=blue>服务器的名称或IP：</td>  
      <td class=red>&nbsp; <%= Request.ServerVariables("server_name") %></td>  
      <td class=blue>描述内容的语系：</td>
      <td class=red>&nbsp; <%= Request.ServerVariables("http_accept_language") %></td></tr>
  <tr><td class=blue>站点主目录的位置：</td>
      <td class=red>&nbsp; <%= Server.MapPath("/") %></td>  
      <td class=blue>本网页所在位置：</td>
      <td class=red>&nbsp; <%= Server.MapPath("./") %></td></tr>  
  <tr><td class=blue>本网页上一级目录：</td>
      <td class=red>&nbsp; <%= Server.MapPath("../") %></td>  
      <td class=blue>服务器端CGI版本：</td>  
      <td class=red>&nbsp; <%= Request.ServerVariables("gateway_interface") %></td></tr>  
  <tr><td class=blue>子与母端联机类型：</td>
      <td class=red>&nbsp; <%= Request.ServerVariables("http_connection") %></td>  
      <td class=blue>浏览器端主机名：</td>
      <td class=red>&nbsp; <%= Request.ServerVariables("http_host") %></td></tr>  
  <tr><td class=blue>用户浏览器的名称：</td>
      <td class=red>&nbsp; <% = objBC.Browser %></td>
      <td class=blue>用户浏览器的版本：</td>
      <td class=red>&nbsp; <% = objBC.Version %></td></tr>
  <tr><td class=blue>是否BETA测试软件：</td>
      <td class=red>&nbsp; <% = objBC.Beta %></td>
      <td class=blue>ActiveXControls：</td>
      <td class=red>&nbsp; <% = objBC.ActiveXControls %></td></tr>
  <tr><td class=blue>是否支持背景声音：</td>
      <td class=red>&nbsp; <% = objBC.BackgroundSounds %></td>
      <td class=blue>是否支持 Cookies：</td>
      <td class=red>&nbsp; <% = objBC.Cookies %></td></tr>
  <tr><td class=blue>是否支持框架网页：</td>
      <td class=red>&nbsp; <% = objBC.Frames %></td>
      <td class=blue>是否支持表格网页：</td>
      <td class=red>&nbsp; <% = objBC.Tables %></td></tr>
  <tr><td class=blue>支持 JavaScript：</td>
      <td class=red>&nbsp; <% = objBC.JavaScript %></td>
      <td class=blue>是否支持VBScript：</td>
      <td class=red>&nbsp; <% = objBC.VBScript %></td></tr>
</table>
<% Set objBC=Nothing %>
</body></html>11．有关正则表达式
1.只能输入数字和英文的：
<input onkeyup="value=value.replace(/[\W]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))">
2.只能输入数字的：
<input onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))">
3.只能输入全角的：
<input onkeyup="value=value.replace(/[^\uFF00-\uFFFF]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\uFF00-\uFFFF]/g,''))">
4.只能输入汉字的：
<input onkeyup="value=value.replace(/[^\u4E00-\u9FA5]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\u4E00-\u9FA5]/g,''))">
12．Xml和div绑定小例子
<XML ID="xmlUser">
    <?xml version="1.0" ?>
    <userinfo>
      <col UserName="杨明" UserAge="20"/> 
      <col UserName="张飞" UserAge="21"/> 
    </userinfo>
</XML><table datasrc="#xmlUser" border="1">
<tr>
  <td><div datafld="UserName"></div></td>
  <td><div datafld="UserAge"></div></td>
</tr>
</table>
13．Loading小例子
<script language="VBScript">
<!--
Dim Bar, Line, SP
Bar = 0
Line = "|"
SP = 10
Function Window_onLoad()
Bar = 95
SP = 10
End Function
Function Count()
If Bar < 100 Then
Bar = Bar + 1
Window.Status = "页面载入状态：" & Bar & "%" & " " & String(Bar, Line)
setTimeout "Count()", SP
Else
Window.Status = "页面载入状态：完成！"
Document.Body.Style.Display = ""
End If
End Function
Call Count()
-->
</script>
14．showModalDialog()、showModelessDialog()方法使用详解
http://www.csdn.net/Develop/read_article.asp?id=1511315．动态生html文件
<html><body>建立一个新文件的范例<br/><br/>
<%
  Dim objFSO    '声明一个名称为 objFSO 的变量以存放对象实例
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
   objFSO.CreateTextFile(Server.MapPath("newfile.htm"))
   Response.Write "已经成功建立新文件"&Server.MapPath("newfile.htm")
  Set objFSO = Nothing      '释放 FileSystemObject 对象实例内存空间
%>
</body></html>以上都是一些很小的技巧，新手上路难免会经常提类似的问题，大家也也贴出自己的珍藏吧！

Answer 2

to fason (阿信）：
     
      我的信赖
       
          我的追求              愿与同仁共勉之。