浪人ㄨ黑白 http://or2.com.cn 浪人ㄨ黑白 zh-cn Copyright 2008-2009 浪人 romanboys@163.com 浪人ㄨ黑白 http://or2.com.cn/or2_images/logo.gif http://or2.com.cn 浪人ㄨ黑白 http://or2.com.cn/blogview.asp?logID=1069<![CDATA[关于 GetResponse 引起 asp.net(500) 内部服务器错误的解决方法]]>ITの心得2010-01-10 10:29 PMhttp://or2.com.cn/blogview.asp?logID=1069
如果一时检查不出來,可以试试向该页头添加 ValidateRequest ="false",

<%@ Page Language="C#" AutoEventWireup="true"  ValidateRequest ="false" %>

不过这样也是治标不治本，具体的最好了解一下为什么有ValidateRequest这个设置，
主要也是为了安全考虑。


]]>http://or2.com.cn/blogview.asp?logID=1068<![CDATA[分页打印代码，只支持IE]]>ITの心得2009-12-31 01:14 PMhttp://or2.com.cn/blogview.asp?logID=1068<title>JS 分页批量打印解决方案(只支持IE)</title>
<script language="javascript">          
 function printWithAlert() {        
 document.all.WebBrowser.ExecWB(6,1);     
 }      
 function printWithoutAlert() {       
   document.all.WebBrowser.ExecWB(6,6);      
 }    
 function printSetup() {        
 document.all.WebBrowser.ExecWB(8,1);      
 }     
 function printPrieview() {        
 document.all.WebBrowser.ExecWB(7,1);      
 }      
function printImmediately() {        
document.all.WebBrowser.ExecWB(6,6);       
 window.close();      
 }       
</script>
<OBJECT  id=WebBrowser  classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 style="display:none">
</OBJECT>
</noscript>
<style media=print>  
.Noprint{display:none;}  .PageNext{page-break-after: always;}  
</style>
<table align="center" class=NOPRINT>
  <tr>
    <td align="center"><BUTTON title=打印 onclick=printWithAlert()>打印</BUTTON>
      <BUTTON title=直接打印 onclick=printWithoutAlert()>直接打印</BUTTON>
      <input type=button value="打印设置" onClick="printSetup()" >
      <button onclick ='printPrieview()' title='打印预览...' >打印预览</button></td>
  </tr>
</table>
<div  class=NOPRINT> 以下为打印区:<br>
</div>
<hr size=1 noshadow color=black  class=NOPRINT >
<table class="PageNext" >
  <tr>
    <td colspan=2>第一页数据</td>
  </tr>
  <tr>
    <td>用户名</td>
    <td>地址</td>
  </tr>
  <tr>
    <td>张三</td>
    <td>北京</td>
  </tr>
</table>
<hr size=1 noshadow color=black  class=NOPRINT >
<div class="PageNext">第二页数据</div>
<hr size=1 noshadow color=black  class=NOPRINT >
第三页数据
</html>
]]>http://or2.com.cn/blogview.asp?logID=1067<![CDATA[待到山花烂漫时]]>杂ヤ杂ハ2009-12-23 11:42 AMhttp://or2.com.cn/blogview.asp?logID=1067]]>http://or2.com.cn/blogview.asp?logID=1066<![CDATA[无与伦比的美丽]]>生活札记2009-11-22 00:39 AMhttp://or2.com.cn/blogview.asp?logID=1066http://or2.com.cn/blogview.asp?logID=1065<![CDATA[如何处理UpdatePanel中控件Autopostback时的焦点]]>ITの心得2009-10-08 09:47 PMhttp://or2.com.cn/blogview.asp?logID=1065
首先我们来解决获取Postback时客户端焦点问题，这是关键。由于这很有普遍性，我写成一个用户控件，使用时只要将用户控件拖入页面即可获得客户端焦点。用户控件的全部内容是： 
HTML code 
<%@ Control Language="C#" %>

<script runat="server">
    protected void Page_PreRender(object sender, EventArgs e)
    {
        if (!IsPostBack)
        {
            var sc = this.Page.Form.Attributes["onsubmit"];
            if (sc == null)
                sc = "return true;"; //给HTML的FROM标签添加onsubmit事件，这个事件是在按钮事件触发时发送的。用来保存当前鼠标焦点的控件ID，在这里就是BUTTON的ID
            this.Page.Form.Attributes["onsubmit"] =
                string.Format("document.getElementById('{0}').value=document.activeElement.id;", this.HiddenField1.ClientID) + sc;
        }
    }

    public string ActiveClientID
    {
        get { return this.HiddenField1.Value; }
    }
</script>

<asp:HiddenField ID="HiddenField1" runat="server" />


这个用户控件内部只有一个HiddenField控件，它在第一次装载时将页面的Form控件的客户端事件onsubmit插入一句脚本，使得当页面回发时（执行theForm.submit()时）首先将当前的焦点(如果有的话)的id记录到这个HiddenField上。可以通过用户控件的属性ActiveClientID查询到这个返回值。 

而在Updapanel内编程时，我们就需要这个ActiveClientID参数来准确地设置焦点，来弥补Updatanel缺少的这项保持焦点的功能。具体示例，可以在网站里贴入下面这个测试页面看看效果： 
HTML code 
<%@ Page Language="C#" %>

<%@ Register Src="ActiveElementID.ascx" TagName="ActiveElementID" TagPrefix="uc2" %>

<script runat="server">

    protected void TextBox2_TextChanged(object sender, EventArgs e)
    {
        Regex reg = new Regex("^[1-9]([0-9]{3})$");           if (reg.Match(TextBox2.Text).Success)
        {
            this.Message1.Visible = false;
            if (ActiveElementID1.ActiveClientID != string.Empty)
                Page.SetFocus(ActiveElementID1.ActiveClientID);//把焦点根据保存的BUTTONID设置到BUTTON上
        }
        else
        {
            this.Message1.Visible = true;
            TextBox2.Focus();//设置TEXTBOX的输入焦点
        }
        this.Message2.Visible = !Message1.Visible;
    }
</script>

<!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 runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
    <asp:ScriptManager ID="ScriptManager1" runat="server" />
    <asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
            <asp:TextBox ID="TextBox2" runat="server" AutoPostBack="true" OnTextChanged="TextBox2_TextChanged" />
            <asp:Label runat="server" ID="Message1" Visible="false" Text="验证失败，只能输入4位数字" SkinID="Warning" />
            <asp:Label runat="server" ID="Message2" Visible="false" Text="验证通过" SkinID="Pass" />
            <br />
            <asp:TextBox ID="TextBox3" runat="server" />
            <br />
            <asp:TextBox ID="TextBox4" runat="server" />
            <br />
            <asp:TextBox ID="TextBox5" runat="server" />
        </ContentTemplate>
    </asp:UpdatePanel>
    <br />
    <br />
    <br />
    <asp:Button ID="Button1" runat="server" Text="什么也不做，测试页面回发状态是否正确" />
    <uc2:ActiveElementID ID="ActiveElementID1" runat="server" />
    </form>
</body>
</html>


这里使用了一个很简单的功能，假设用户焦点离开TextBox的时候，我们需要首先使用一个很简单的正则来验证用户录入的是否正确。实际上，我们可以在后台编写任意复杂的验证功能，使用数据库甚至远程服务来进行验证，然后将结果实时显示在客户端。这里使用TextBox做演示，实际上稍加分辨你就可以看到这个用户控件的功能对于使用或者不使用UpdataPanel都是可行的，而且可以也可以使用在这里演示的TextBox的AutoPostback判断以外任意控件的回发处理时。。 

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/zhouxing_24/archive/2008/12/31/3666377.aspx]]>http://or2.com.cn/blogview.asp?logID=1064<![CDATA[Treeview 无限分类 终极解决方案C#]]>ITの心得2009-09-04 10:48 PMhttp://or2.com.cn/blogview.asp?logID=1064
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.IO;
using System.Net;
using System.Text;
using System.Data.SqlClient;


public partial class _Default : System.Web.UI.Page 
{
    protected void Page_Load(object sender, EventArgs e)
    {
        if (!IsPostBack)
        {
            PopulateNodes(TreeView1.Nodes, 0);
        }//      
    }

    public DataTable GetTreeTable()
    {
        DataTable dt = new DataTable();
        dt = HttpContext.Current.Cache["Treeview"] as DataTable;
        if (dt != null)
        {
            //此处是数据库连接
            //String ConnStr = LTP.Common.ConfigHelper.GetConfigString("DNS");

            String ConnStr = ConfigurationManager.ConnectionStrings["DNS"].ConnectionString;

            SqlConnection Conn = new SqlConnection(ConnStr);

            //String sqlstr = "select * from TreeJi";

            SqlCommand Com = new SqlCommand();

            Com.CommandText = "select * from TreeJi";
            Com.Connection = Conn;

            Conn.Open();
            Com.ExecuteNonQuery();


            SqlDataAdapter sda = new SqlDataAdapter(Com);
            dt = new DataTable();
            sda.Fill(dt);
            HttpContext.Current.Cache.Insert("Treeview", dt);           
            Conn.Close();
            Conn.Dispose();
        }

        return dt;

    }

    public void PopulateNodes(TreeNodeCollection nodes, Int32 intParentID)
    {
        DataTable dt = new DataTable();
        dt = this.GetTreeTable();

        String strExpression = String.Empty;

        strExpression = "[parentID]=" + intParentID;
        System.Data.DataRow[] dr;

        dr = dt.Select(strExpression);


        for (Int32 i = 0; i <= dr.GetUpperBound(0); i++)
        {

            TreeNode tn = new TreeNode();           //Dim tn As New TreeNode()

            tn.Text = dr["TableName"].ToString().Trim();//tn.Text = foundRows(I).Item(“TableName”).ToString()

            tn.Value = dr["ID"].ToString();  //tn.Value = foundRows(I).Item("ID").ToString()

            DataRow[] dr1;  //Dim dr() As DataRow

            dr1 = dt.Select("[parentID]=" + tn.Value);  //dr = dt.Select("[parentID] = " & tn.Value)

            if (dr1.GetUpperBound(0) > -1)
            {
                tn.PopulateOnDemand = true;
            }//If dr.GetUpperBound(0) > -1 Then

            //    tn.PopulateOnDemand = True

            //End If

            nodes.Add(tn);             

        }

        //TreeView1.DataSource = dt.DefaultView;
        //TreeView1.DataBind();
    }

    protected void TreeView1_TreeNodePopulate(object sender, TreeNodeEventArgs e)
    {
        
        PopulateNodes(e.Node.ChildNodes, Int32.Parse(e.Node.Value));
    }
}


前台页面部分:

<%@ Page Language="C#" AutoEventWireup="true"  CodeFile="Default.aspx.cs" Inherits="_Default" %>

<!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 runat="server">
    <title>无标题页</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    <asp:TreeView ID="TreeView1" runat="server" OnTreeNodePopulate="TreeView1_TreeNodePopulate">
      </asp:TreeView>
    </div>
    </form>
</body>
</html>


]]>http://or2.com.cn/blogview.asp?logID=1063<![CDATA[正则表达式大全]]>ITの心得2009-09-03 00:56 AMhttp://or2.com.cn/blogview.asp?logID=1063"^[0-9]*[1-9][0-9]*$" //正整数 
"^((-\d+)|(0+))$" //非正整数（负整数 + 0） 
"^-[0-9]*[1-9][0-9]*$" //负整数 
"^-?\d+$" //整数 
"^\d+(\.\d+)?$" //非负浮点数（正浮点数 + 0） 
"^(([0-9]+\.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*\.[0-9]+)|([0-9]*[1-9][0-9]*))$" //正浮点数 
"^((-\d+(\.\d+)?)|(0+(\.0+)?))$" //非正浮点数（负浮点数 + 0） 
"^(-(([0-9]+\.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*\.[0-9]+)|([0-9]*[1-9][0-9]*)))$" //负浮点数 
"^(-?\d+)(\.\d+)?$" //浮点数 
"^[A-Za-z]+$" //由26个英文字母组成的字符串 
"^[A-Z]+$" //由26个英文字母的大写组成的字符串 
"^[a-z]+$" //由26个英文字母的小写组成的字符串 
"^[A-Za-z0-9]+$" //由数字和26个英文字母组成的字符串 
"^\w+$" //由数字、26个英文字母或者下划线组成的字符串 
"^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+$" //email地址 
"^[a-zA-z]+://(\w+(-\w+)*)(\.(\w+(-\w+)*))*(\?\S*)?$" //url 
/^(d{2}|d{4})-((0([1-9]{1}))|(1[1|2]))-(([0-2]([1-9]{1}))|(3[0|1]))$/ // 年-月-日 
/^((0([1-9]{1}))|(1[1|2]))/(([0-2]([1-9]{1}))|(3[0|1]))/(d{2}|d{4})$/ // 月/日/年 
"^([w-.]+)@(([[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.)|(([w-]+.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(]?)$" //Emil 
"(d+-)?(d{4}-?d{7}|d{3}-?d{8}|^d{7,8})(-d+)?" //电话号码 
"^(d{1,2}|1dd|2[0-4]d|25[0-5]).(d{1,2}|1dd|2[0-4]d|25[0-5]).(d{1,2}|1dd|2[0-4]d|25[0-5]).(d{1,2}|1dd|2[0-4]d|25[0-5])$" //IP地址 

YYYY-MM-DD基本上把闰年和2月等的情况都考虑进去了 
^((((1[6-9]|[2-9]\d)\d{2})-(0?[13578]|1[02])-(0?[1-9]|[12]\d|3[01]))|(((1[6-9]|[2-9]\d)\d{2})-(0?[13456789]|1[012])-(0?[1-9]|[12]\d|30))|(((1[6-9]|[2-9]\d)\d{2})-0?2-(0?[1-9]|1\d|2[0-8]))|(((1[6-9]|[2-9]\d)(0[48]|[2468][048]|[13579][26])|((16|[2468][048]|[3579][26])00))-0?2-29-))$ 
]]>http://or2.com.cn/blogview.asp?logID=1062<![CDATA[“不能启用此约束,因为不是所有的值都具有相应的父值”的解决方法]]>ITの心得2009-08-30 11:17 AMhttp://or2.com.cn/blogview.asp?logID=1062不能启用此约束,因为不是所有的值都具有相应的父值

首先要明白这句话的意思先，这句话的意民是，子表的数据不是每一个值在主表中都有相联系的值。
通常我们做dataset两个表的嵌套时，会使用一个ID把两个表关联起来，写法如下
DataRelation datasetRelation=ds.Relations.Add("myrela", ds.Tables[0].Columns["CaseID"], ds.Tables[1].Columns["CaseID"]);

正常情况下不作主表筛选时，可以很正常的显示，如果对主表删除数据，OR主表筛选时，比方说把主表中日期为
2007-03-27进行筛选时，那就会出现 不能启用此约束,因为不是所有的值都具有相应的父值的错误

因为子表中的ID表比主表中的ID值多，所以就会出现这样的错误

解决方法很简单

DataRelation datasetRelation=ds.Relations.Add("myrela", ds.Tables[0].Columns["CaseID"], ds.Tables[1].Columns["CaseID"],false);

加个false就行了
]]>http://or2.com.cn/blogview.asp?logID=1061<![CDATA[sys.debug 为空或不是对象的解决办法]]>ITの心得2009-08-29 09:12 PMhttp://or2.com.cn/blogview.asp?logID=10611: 删除路径下的: X:\Program Files\Microsoft ASP.NET\ASP.NET 2.0 AJAX Extensions\v1.0.61025\MicrosoftAjaxLibrary\System.Web.Extensions\1.0.61025.0 下的Debug 和release文件夹.

2:uninstall Ajax 的安装包和Toolkit包,

3: 再装ajax 和toolkit包,


重启IIS,或重启服务器,问题解决.
]]>http://or2.com.cn/blogview.asp?logID=1060<![CDATA[VS2005 快捷键大全]]>ITの心得2009-08-25 05:18 PMhttp://or2.com.cn/blogview.asp?logID=1060CTRL + SHIFT + B生成解决方案
CTRL + F7 生成编译
CTRL + O 打开文件
CTRL + SHIFT + O打开项目
CTRL + SHIFT + C显示类视图窗口
F4 显示属性窗口
SHIFT + F4显示项目属性窗口
CTRL + SHIFT + E显示资源视图
F12 转到定义
CTRL + F12转到声明
CTRL + ALT + J对象浏览
CTRL + ALT + F1帮助目录
CTRL + F1 动态帮助 
F1 帮助
SHIFT + F1当前窗口帮助
CTRL + ALT + F3帮助-搜索
SHIFT + ALT + ENTER全屏显示
CTRL + -向后定位
CTRL + SHIFT + -向前定位
CTRL + F4关闭文档窗口
CTRL + PAGE DOWN光标定位到窗口上方
CTRL + PAGE UP光标定位到窗口下方
CTRL + F6
CTRL + TAB下一个文档窗口
CTRL + SHIFT + F6
CTRL + SHIFT + TAB上一个文档窗口
ALT + F6下一个面板窗口
CTRL + K, CTRL + L取消remark
CTRL + K, CTRL + C注释选择的代码
CTRL + K, CTRL + U取消对选择代码的注释
CTRL + M, CTRL + O折叠代码定义
CTRL + M, CTRL + L展开代码定义
CTRL + DELETE删除至词尾
CTRL + BACKSPACE删除至词头
SHIFT + TAB取消制表符
CTRL + U转小写
CTRL + SHIFT + U转大写
CTRL + SHIFT + END选择至文档末尾
CTRL + SHIFT + HOME选择至文档末尾开始
SHIFT + END选择至行尾
SHIFT + HOME选择至行开始处
SHIFT + ALT + END垂直选择到最后尾
SHIFT + ALT + HOME垂直选择到最前面
CTRL + A全选
CTRL + W选择当前单词
CTRL + SHIFT + PAGE UP选择至本页前面
CTRL + SHIFT + PAGE DOWN选择至本页后面
CTRL + END文档定位到最后
CTRL + HOME文档定位到最前
CTRL + G转到…
CTRL + K, CTRL + P上一个标签
CTRL + K, CTRL + N下一个标签
ALT + F10调试-ApplyCodeChanges 
CTRL + ALT+ Break停止调试
CTRL + SHIFT + F9 取消所有断点
CTRL + F9允许中断
CTRL + SHIFT + F5调试-重新开始
F5运行调试
CTRL + F5运行不调试
F10跨过程序执行
F11单步逐句执行
CTRL + J列出成员 
CTRL + PAGE DOWN下一个视图
CTRL + B格式-粗体
CTRL + SHIFT + T格式-文字缩进 
调试快捷键
F6: 生成解决方案
Ctrl+F6: 生成当前项目
F7: 查看代码
Shift+F7: 查看窗体设计器
F5: 启动调试
Ctrl+F5: 开始执行(不调试)
Shift+F5: 停止调试
Ctrl+Shift+F5: 重启调试
F9: 切换断点
Ctrl+F9: 启用/停止断点
Ctrl+Shift+F9: 删除全部断点
F10: 逐过程
Ctrl+F10: 运行到光标处
F11: 逐语句
编辑快捷键
Shift+Alt+Enter: 切换全屏编辑
Ctrl+B,T / Ctrl+K,K: 切换书签开关
Ctrl+B,N / Ctrl+K,N: 移动到下一书签
Ctrl+B,P: 移动到上一书签
Ctrl+B,C: 清除全部标签
Ctrl+I: 渐进式搜索
Ctrl+Shift+I: 反向渐进式搜索
Ctrl+F: 查找
Ctrl+Shift+F: 在文件中查找
F3: 查找下一个
Shift+F3: 查找上一个
Ctrl+H: 替换
Ctrl+Shift+H: 在文件中替换
Alt+F12: 查找符号(列出所有查找结果)
Ctrl+Shift+V: 剪贴板循环
Ctrl+左右箭头键: 一次可以移动一个单词
Ctrl+上下箭头键: 滚动代码屏幕，但不移动光标位置。
Ctrl+Shift+L: 删除当前行
Ctrl+M,M: 隐藏或展开当前嵌套的折叠状态
Ctrl+M,L: 将所有过程设置为相同的隐藏或展开状态
Ctrl+M,P: 停止大纲显示
Ctrl+E,S: 查看空白
Ctrl+E,W: 自动换行
Ctrl+G: 转到指定行
Shift+Alt+箭头键: 选择矩形文本
Alt+鼠标左按钮: 选择矩形文本
Ctrl+Shift+U: 全部变为大写
Ctrl+U: 全部变为小写
代码快捷键
Ctrl+J / Ctrl+K,L: 列出成员
Ctrl+Shift+空格键 / Ctrl+K,P: 参数信息
Ctrl+K,I: 快速信息
Ctrl+E,C / Ctrl+K,C: 注释选定内容
Ctrl+E,U / Ctrl+K,U: 取消选定注释内容
Ctrl+K,M: 生成方法存根
Ctrl+K,X: 插入代码段
Ctrl+K,S: 插入外侧代码
F12: 转到所调用过程或变量的定义
窗口快捷键
Ctrl+W,W: 浏览器窗口
Ctrl+W,S: 解决方案管理器
Ctrl+W,C: 类视图
Ctrl+W,E: 错误列表
Ctrl+W,O: 输出视图
Ctrl+W,P: 属性窗口
Ctrl+W,T: 任务列表
Ctrl+W,X: 工具箱
Ctrl+W,B: 书签窗口
Ctrl+W,U: 文档大纲
Ctrl+D,B: 断点窗口
Ctrl+D,I: 即时窗口
Ctrl+Tab: 活动窗体切换
Ctrl+Shift+N: 新建项目
Ctrl+Shift+O: 打开项目
Ctrl+Shift+S: 全部保存
Shift+Alt+C: 新建类
Ctrl+Shift+A: 新建项

VS2005的隐藏快捷键 
 
这里我将会把一些无意中发现的VS2005中没有明确指出的快捷键共享出来，并不是所有的快捷键，或者常见的一些快捷键。
1、Ctrl+Space直接完成类或函数（本来这个并不算隐藏的快捷键，但是因为中文输入法抢占这个快捷键，所以。。。，替代的快捷键是Alt+Right）
2、Shift+Delete整行删除，并且将这一行放到剪贴板（这时候不能选中一段内容）
3、Shift+Insert粘贴，有点匪夷所思，Ctrl+V就可以了，大概是为了和Shift+Delete对应吧
4、Ctrl+Up，Ctrl+Down滚动编辑器，但尽量不移动光标，光标保证在可见范围内
5、Ctrl+BackSpace，Ctrl+Delete整词删除，有的时候很有用
6、Ctrl+Left，Ctrl+Right按整词移动光标（不算隐藏，和前面几条加起来就是Ctrl光标控制套件了）
7、Alt+Shift+F10打开执行改名，实现接口和抽象类的小窗口（还可以用Ctrl+.，不过有的中文输入法用到这个）
8、Shift+F9调试是打开QuickWatch，内容是当前光标所在处的内容
9、F12转跳到定义，很有用的快捷键
10、Shift+F12查找所有引用
11、Ctrl+F10=F5，开始Debug
12、Ctrl+F6循环察看代码窗口，有点Ctrl+Tab的感觉
13、Ctrl+F3查找当前光标选中的内容，可以和F3配合使用
14、Ctrl+F2将焦点转移到类的下拉框上
15、Alt+F7=Ctrl+Tab
16、Alt+F11新开VS2005并编辑宏
17、Alt+F12查找=Ctrl+F
]]>http://or2.com.cn/blogview.asp?logID=1059<![CDATA[asp.net 多语言制作方法]]>ITの心得2009-08-25 02:27 PMhttp://or2.com.cn/blogview.asp?logID=1059
一、首先在App_GlobalResources新建resx资源文件。

我们建立3个文件，如：
lang.zh-cn.resx
lang.resx
lang.es-ar.resx
至于如何确认语言，通过ie，工具，internet选项，语言，添加...就可以看到各国语言类型了，
这里es-ar是西班牙语。
不同语言的resx中项目应该具有相同的名称：
username:用户名---lang.zh-cn.resx
username:UserName---lang.es-ar.resx
username:UserName---lang.resx
这里lang.resx文件一定要有username这个名称

二、然后在页面里对应地方添加语言控件了

<asp:Literal ID="Literal1" runat="server" Text="<%$ Resources:lang,UserName%>" />
注意所有需要语言的地方都要写成控件。

三、接着就是在web.config里定义默认语言类型了

web.config中增加<globalization culture="en-US" uiCulture="en-US"/>来改变程序默认使用的语言项。 

当然也可以可以往global全局应用程序中增加如下代码

　　void Application_BeginRequest(Object sender, EventArgs e)
　　{
　　try
　　{
　　if (Request.Cookies["lang"] != null)
　　{
　　System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture(Request.Cookies["lang"].Value.ToString());
　　System.Threading.Thread.CurrentThread.CurrentUICulture = new System.Globalization.CultureInfo(Request.Cookies["lang"].Value.ToString());
　　}
　　}
　　catch (Exception)
　　{ }
　　}  


　　即可通过设置变换cookie值来达到即时切换语言的目的，轻松的实现了程序的多语言。

以上文章改写参考自互联网，参考文章：http://pcedu.pconline.com.cn/empolder/net/asp/0808/1396810.html

]]>http://or2.com.cn/blogview.asp?logID=1058<![CDATA[纪念]]>生活札记2009-08-04 11:27 PMhttp://or2.com.cn/blogview.asp?logID=1058
仅，为了纪念最该记住的人和回忆不美好的往事，
但，今日却是往日她曾经最美好幸福的回忆，

思念，是那咕噜咕噜涌出来的水，离开源头便是消散，
而我，是为了留住思念纪念今日。

父忧母难日也...

some ... important,but some ... won't come back.]]>http://or2.com.cn/blogview.asp?logID=1057<![CDATA[ASP程序加密与解密方法全面解析]]>ITの心得2009-07-23 04:19 PMhttp://or2.com.cn/blogview.asp?logID=1057　　如今，用ASP技术构建的网站随处可见。由于ASP脚本是在服务器上解释执行的(无法编译)，因此你辛苦开发出来的ASP代码，很容易被人拷去任意修改，如何保护ASP源代码呢?这是每个ASP站长都会遇到的难题，网上求解这类问题的帖子非常多，下面我们就来谈谈ASP程序的加密方法。

　　一、如何加密ASP程序?

　　目前对ASP程序的加密方法主要有三种：脚本编码器(SRCENC.EXE)加密、组件加密、自编程序加密，下面我们就来展开介绍这三种加密方法。

　　1、使用微软的MS Script Encode进行加密

　　微软提供了脚本编码器MS Script Encode(下载地址http://www.itgene.cn/itgene/download/download.aspID=232)，可以对ASP程序进行加密。这是一个简单的命令行工具，其执行文件是SRCENC.EXE，需要在DOS下运行。它只加密页面中嵌入的脚本代码，把网页中之间的ASP代码转换成不可读的乱码，其他部分则保持原样不变。加密后的程序，必须使用Internet Explorer 5.0以上版本才能正常浏览。

　　用SRCENC加密之后，文件中被加密过的部分将变成只读类型，假如你修改了加密部分(哪怕只改动一个字)，就会导致整个文件不能使用。对于 VBScript，加密后在源文件的第一行会显示：<SCRIPT LANGUAGE="VBScript.Encode">；而JScript（或 JavaScript）则会显示：<SCRIPT LANGUAGE="JScript.Encode">

　　(1)加密方法

　　单击“开始”/程序/附件/命令提示符，在MS-DOS 命令行中输入以下命令，即可对某个asp文件加密：

SRCENC  [switches]  <要加密asp文件名>  <加密后的文件名>

　　其中[switches]项目可以选以下5个参数

　　[switches] 含义 举例

　　/s 可选。命令中带了该参数，加密过程中屏幕上就不会有输出。 screnc /s lacl.sct ulacl.sct

　　对当前目录中的脚本小程序lacl.sct加密，加密过程中屏幕不显示任何信息

　　/f 可选。指定输出文件是否覆盖同名输入文件。忽略，将不执行覆盖。 screnc /f lacl.asp

　　对文件 lacl.asp加密，并用编码后的同名文件覆盖原文件

　　/xl 可选。是否在.asp文件的顶部添加@Language指令。忽略，将添加。

　　/l defLanguage 可选。指定Script Encoder加密中选择的缺省脚本语言。文件中不包含这种脚本语言特性的脚本将被Script Encoder 忽略。

　　对于HTML文件，JScript为内置缺省脚本语言;对于ASP文件，VBScript为缺省脚本语言;对于扩展名为.vbs或.js的文件，Script Encoder也有自适应能力。 screnc /l vbscript lacl.htm ulacl.htm

　　对文件 lacl.htm加密，并生成输出文件 ulacl.htm，确保没有指定语言属性的脚本块使用 VBScript

　　/e defExtension 可选。指定待加密文件的文件扩展名。缺省状态下，Script Encoder能识别asa,asp,cdx,htm,html,js,sct和vbs文件。 screnc /e asp 11\*.* f:\labxw-jm

　　对11目录中的所有.ASP 文件进行加密，并把编码后的输出文件放在f:\labxw-jm目录中

　　(2)操作举例

　　例如要加密当前目录中的lacl.asp文件，生成加密文件ulacl.asp，则在DOS下输入命令：

　　screnc lacl.asp ulacl.asp

　　对当前目录中的所有 .ASP 文件进行加密，并把编码后的输出文件放在f:\labxw中，则使用命令：

　　screnc *.asp f:\labxw

　　2、使用组件加密asp

　　以上被screnc加密过的程序，是可以解密的(解密方法下文有介绍)，如果你想彻底保护自己的asp代码，可以通过开发activex dll组件的方法进行保护。

　　Dll文件是被编译过的机器代码，如果没有源项目文件，是不可能被反编译的，所以组件加密这种方法最安全，也不可能被破解。下面我们来举例说明操作过程，例如你要保护以下asp代码：

以下是引用片段：
　　set rs=server.createobject("adodb.recordset") 
　　sql="select * from gq where xs=1  order by date asc" 
　　rs.open sql,conn,1,1 
　　if rs.eof and rs.bof then 
　　response.write"<A HREF=new0.asp?lbid=gqx ><%= gqx %></A>" 
　　else 
　　Response.Write "" 
　　end if 
　　set rs=nothing 
　　conn.close 
　　set conn=nothing 


　　可以把它们改写成VB组件，然后在ASP文件中调用组件即可。操作步骤如下：

　　(1)新建一个vb6的activex dll项目

　　在属性窗口中，命名你的库模块和项目文件(例如项目名lacl，模块名disp)，以后在asp文件中，调用的对象名将为lacl_disp

　　选择vb6中的项目菜单中的references ，选中microsoft activex data objects 2.0 library

　　(2)编写VB组件

　　接下来把<欲保护的asp代码>改写成VB组件，代码如下：

以下是引用片段：
　　public function html_combo(disp_table as string) as string 
　　dim outstring as string 
　　dim conn as adodb.connection 
　　dim rst as adodb.recordset 
　　dim sqlstring as string 
　　set conn = createobject("adodb.connection") 
　　set rst = createobject("adodb.recordset") 
　　sqlstring = "select * from " & disp_table & " where xs=1  order by date asc" 
　　'以上是在VB中打开数据库操作，数据库中的表名、字段名，你可以根据自己的需要修改 
　　conn.open "dsn=sumnet" 
　　rst.open sqlstring, conn, 3, 3 
　　if rst.eof and rst.bof then 
　　outstring = "还没有这类单位信息" 
　　else 
　　rst.movefirst 
　　outstring = "<A HREF=new0.asp?lbid="&request("lbid") & "></A>" 
　　end if 
　　html_combo = outstring 
　　rst.close 
　　conn.close 
　　end function 


　　写好以上VB代码后，保存项目并开始编译。

　　(3)生成安装文件

　　打开visual studio 6中附带的package deployment wizard程序，选择刚才建立的activex项目文件lacl;选择package，选择要打包的脚本或使用默认脚本，选择标准安装，为生成的安装文件选择一个存放目录，选择single cab. 其他均默认;然后单击下一步，安装文件就自动生成了!

　　(4)在IIS服务器上安装组件

　　在IIS服务器上运行这个安装文件，把组件安装到服务器上。

　　(5)在网页中调用组件

　　以后在ASP文件中，通过调用该组件完成原来的功能。在网页中调用你制作的组件，方法如下：

以下是引用片段：
  <%@ language="vbscript" %> 
  <% 
  set diaoyong = server.createobject("lacl_disp.disp") 
  %>                           
  <html> 
  <body> 
  <%= diaoyong.html_combo("gq")%> 
  <br> 
  </body> 
  </html> 


　　你看，现在Asp文件中的内容只是组件的调用(与以前完全不同)，别人即使得到该文件，也无法编辑修改源代码，因为代码都被封装在VB组件中了，对于组件中的代码，外人是无法看到、也不能反编译的!

　　3、自己编写加密程序

　　组件加密方法虽然不可破解，但是要求你熟悉VB编程，需要把ASP代码改写成VB组件，工作量很大，所以建议大家自己编程来保护asp代码，其基本思路是：写一个加密函数base64Encode和解密函数base64Decode，先用加密函数处理<要保护的asp代码>，得到对应的密文hu；然后再用execute(base64Decode(hu))替换<欲保护的asp代码>。

　　例如我们要保护上面那段asp代码，可以这样操作：

　　(1)用WORD处理<要保护的ASP代码>

　　将<要保护的ASP代码>拷到WORD中;在WORD中，把代码里的段落标记(回车换行)全部替换成“水”这个汉字，方法是：点击“编辑”/替换，光标移到“查找内容”栏，点“高级”/特殊字符，选择“段落标记”;光标移到“替换为”栏，输入“水”，最后点“全部替换”。同法，把代码中的单引号也全部替换成“加”这个汉字。

　　(2)编写、运行加密程序

　　在FrontPage中编写加密程序，该程序中有初始化函数initCodecs、加密函数base64Encode(代码如下)，把WORD处理后的代码，copy粘贴在inp = ""这句中，最后以test1.asp名存盘;在IE中输入http://127.0.0.1/test1.asp本地运行该文件;屏幕上会显示一大段乱码(例如c2V0IHJzPXNlcnZlci5jcmVhd...)，这就是《要保护的asp代码》对应的密文!

以下是引用片段：
　　OPTION EXPLICIT 
　　const BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" 
　　dim newline 
　　dim Base64EncMap(63) 
　　dim Base64DecMap(127) 
　　dim inp,hu,encode 
　　call initCodecs '初始化 
　　inp = "<WORD处理后的asp代码>" '将要保护的asp代码用WORD处理，然后填在此处 
　　hu= base64Encode(inp) '调用函数base64Encode进行加密，得到密文hu 
　　Response.Write(hu) '显示密文 
　　PUBLIC SUB initCodecs() '初始化函数initCodecs 
　　newline = "<P>" & chr(13) & chr(10)
　　dim max, idx 
　　max = len(BASE_64_MAP_INIT) 
　　for idx = 0 to max - 1 
　　Base64EncMap(idx) = mid(BASE_64_MAP_INIT, idx + 1, 1) 
　　next 
　　for idx = 0 to max - 1 
　　Base64DecMap(ASC(Base64EncMap(idx))) = idx 
　　next 
　　END SUB 
　　PUBLIC FUNCTION base64Encode(plain) '加密函数base64Encode 
　　if len(plain) = 0 then 
　　base64Encode = "" 
　　exit function 
　　end if 
　　dim ret, ndx, by3, first, second, third 
　　by3 = (len(plain) \ 3) * 3 
　　ndx = 1 
　　do while ndx <= by3 
　　first = asc(mid(plain, ndx+0, 1)) 
　　second = asc(mid(plain, ndx+1, 1)) 
　　third = asc(mid(plain, ndx+2, 1)) 
　　ret = ret & Base64EncMap( (first \ 4) AND 63 ) 
　　ret = ret & Base64EncMap( ((first * 16) AND 48) + ((second \ 16) AND 15 ) ) 
　　ret = ret & Base64EncMap( ((second * 4) AND 60) + ((third \ 64) AND 3 ) ) 
　　ret = ret & Base64EncMap( third AND 63) 
　　ndx = ndx + 3 
　　loop 
　　if by3 < len(plain) then 
　　first = asc(mid(plain, ndx+0, 1)) 
　　ret = ret & Base64EncMap( (first \ 4) AND 63 ) 
　　if (len(plain) MOD 3 ) = 2 then 
　　second = asc(mid(plain, ndx+1, 1)) 
　　ret = ret & Base64EncMap( ((first * 16) AND 48) + ((second \ 16) AND 15 ) ) 
　　ret = ret & Base64EncMap( ((second * 4) AND 60) ) 
　　else 
　　ret = ret & Base64EncMap( (first * 16) AND 48) 
　　ret = ret '& "=" 
　　end if 
　　ret = ret '& "=" 
　　end if 
　　base64Encode = ret 
　　END FUNCTION 

　　(3)重新改写要保护的asp文件

　　改写原来的asp文件，在文件中增加UnEncode 和base64Decode函数，全部代码如下：

以下是引用片段：
　　Dim Hu,Hu2 
　　'拷贝“欲保护asp代码”的密文 将之存放到Hu变量中 
　　Hu=”c2V0IHJzPXNlcnZlci5jcmVhdGVvYmplY3Qo12Fkb2RiLnJlY29yZHNldOMpICAgICDuc3FsPeNzZWxlY3QgKiBmcm9tIGdxICB3aGVyZSB4cz0xIG9yZGVyIGJ5IGRhdGUgYXNj1yAgICAgsnJzLm9wZW4gc3FsLGNvbm4sMSwxICAgICDuaWYgcnMuZW9mIGFuZCBycy5ib2YgdGhlbiDucmVzcG9uc2Uud3JpdGUTvSD7INAg5iAgILUgvyAFILITsmVsc2UgsiAgICAgUmVzcG9uc2UuV3JpdGUg1zxBIEhSRUY9bmV3MC5hc3A/bGJpZD0TJnJlcXVlc3Qo12xiaWQTKSAmIOM+PC9BPuPuZW5kIGlmICAgIL5zZXQgcnM9bm90aGluZyAgICAgICAgsmNvbm4uY2xvc2UgICAgICDuc2V0IGNvbm49bm90aGluZyAgIL4” 
　　Hu2= base64Decode(hu) '还原要保护的ASP代码 
　　execute(UnEncode(Hu2)) '还原单引号、回车换行，并执行原代码 
　　’解密函数base64Decode 
　　FUNCTION base64Decode(scrambled) 
　　if len(scrambled) = 0 then 
　　base64Decode = "" 
　　exit function 
　　end if 
　　dim realLen 
　　realLen = len(scrambled) 
　　do while mid(scrambled, realLen, 1) = "=" 
　　realLen = realLen - 1 
　　loop 
　　dim ret, ndx, by4, first, second, third, fourth 
　　ret = "" 
　　by4 = (realLen \ 4) * 4 
　　ndx = 1 
　　do while ndx <= by4 
　　first = Base64DecMap(asc(mid(scrambled, ndx+0, 1))) 
　　second = Base64DecMap(asc(mid(scrambled, ndx+1, 1))) 
　　third = Base64DecMap(asc(mid(scrambled, ndx+2, 1))) 
　　fourth = Base64DecMap(asc(mid(scrambled, ndx+3, 1))) 
　　ret = ret & chr( ((first * 4) AND 255) + ((second \ 16) AND 3)) 
　　ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND 15)) 
　　ret = ret & chr( ((third * 64) AND 255) + (fourth AND 63)) 
　　ndx = ndx + 4 
　　loop 
　　if ndx < realLen then 
　　first = Base64DecMap(asc(mid(scrambled, ndx+0, 1))) 
　　second = Base64DecMap(asc(mid(scrambled, ndx+1, 1))) 
　　ret = ret & chr( ((first * 4) AND 255) + ((second \ 16) AND 3)) 
　　if realLen MOD 4 = 3 then 
　　third = Base64DecMap(asc(mid(scrambled,ndx+2,1))) 
　　ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND 15)) 
　　end if 
　　end if 
　　base64Decode = ret 
　　END FUNCTION 
　　'还原单引号、回车换行函数UnEncode 
　　function UnEncode(cc) 
　　for i = 1 to len(cc) 
　　if mid(cc,i,1)<> "水" then 
　　if mid(cc,i,1)="加" then 
　　temp = """" & temp 
　　else 
　　temp = Mid(cc, i, 1) + temp 
　　end if 
　　else 
　　temp=newline&temp 
　　end if 
　　next 
　　UnEncode=temp 
　　end function 


　　将以上代码以test2.asp名存盘。

　　(4)用SRCENC加密test2.asp

　　用SRCENC加密test2.asp，然后把它发布到服务器上，这样别人即使得到该文件、破解了SRCENC加密，也无法看到原代码，因为原代码在test2.asp中是密文(Hu=”c2V0IHJzPXNlcnZlc...)，所以ASP代码就被保护起来了!

　　二、加密过的asp程序如何解密?

　　如何对加密过的asp程序解密呢?首先我们要告诉大家，用组件法加密的asp程序是无法解密的，而screnc加密过的程序则可以解密，方法是：使用解密软件(ZWDECODE.EXE)。

　　ZWDECODE.EXE(下载地址http://www.mydown.com/softdown/45/45183.html)可以对MS Script Encode加密的ASP文件进行解密，还原出源代码。

　　(1)解密方法

　　单击“开始”/程序/附件/命令提示符，在MS-DOS 命令行中输入以下命令，即可恢复原代码：

　　ZWDECODE <已加密asp文件名>

　　其中<已加密asp文件名>必需输入，该文件名可带目录路径;也必需输入，这是要生成的输出文件名，也可以带路径信息。

　　(2)举例

　　例如F:\22\lacl.asp曾被screnc加密处理过，现在要恢复其中的源代码，你可以在MS-DOS中输入以下命令：

　　ZWDECODE F:\22\lacl.asp d:\ulacl.asp

　　执行完毕，在D盘上就会生成一个ulacl.asp文件，打开该文件，你就能看到源代码了! 
]]>http://or2.com.cn/blogview.asp?logID=1056<![CDATA[MySQL忘记密码解决方案]]>ITの心得2009-07-23 02:51 PMhttp://or2.com.cn/blogview.asp?logID=1056打开命令行窗口，停止mysql服务：Net stop mysql 
到mysql的安装路径启动mysql，在bin目录下使用mysqld-nt.exe启动，在命令行窗口执行：mysqld-nt --skip-grant-tables 
然后另外打开一个命入令行窗口，执行mysql，此时无需输入密码即可进入。 
>use mysql 
>update user set password=password("new_pass") where user="root"; 
>flush privileges; 
>exit 
使用任务管理器，找到mysqld-nt的进程，结束进程！ 
在重新启动mysql-nt服务，就可以用新密码登录了。 

在linux下： 
如果 MySQL 正在运行，首先杀之： killall -TERM mysqld。 
启动 MySQL ：bin/safe_mysqld --skip-grant-tables & 
就可以不需要密码就进入 MySQL 了。 
然后就是 
>use mysql 
>update user set password=password("new_pass") where user="root"; 
>flush privileges; 
重新杀 MySQL ，用正常方法启动 MySQL 。

本文来自: (www.91linux.com) 详细出处参考：http://www.91linux.com/html/article/database/mysql/20090330/16283.html]]>http://or2.com.cn/blogview.asp?logID=1055<![CDATA[隐藏的日志，登录后才能查看]]>三生石畔2009-06-21 02:05 AMhttp://or2.com.cn/blogview.asp?logID=1055http://or2.com.cn/blogview.asp?logID=1054<![CDATA[容易醉的一天]]>生活札记2009-06-21 01:16 AMhttp://or2.com.cn/blogview.asp?logID=1054哈米要来坐坐结果我不在公司,而bonbon似乎在抱怨我没给他捎上他卡哇伊的帆布鞋和阿巴尼的牛仔裤,也依稀听见...

恩,今天似乎是比较容易醉的一天,
在blog上反复听着她喜欢听的歌曲,带着企图地发现她向往的那个世界远比我想象的简单是的,我的世界太深渊了,呵呵

最近,我发现自己最近也边健忘和容易熟睡了,是否是带着邪恶的惩罚,让我越烦恼越忘却
似乎,我还是喜欢神经和失眠,难以理解

我希望,有一天能简单地配合这个世界,也让自己简单点.我们所认知的世界太小了，所以会被困惑
是否,应该解放自己的思想,不可理喻

呵呵,今天是比较容易醉的一天,
沉醉在蜕变的日子里...

呃...继续听歌,继续陶醉,呵呵,不要以为我喝酒了,那是愚蠢的行为,
这里奉劝哈米戒烟,bonbon和pq戒胖,robin戒瘦,呃..不点戒色..- -~!快闪.]]>http://or2.com.cn/blogview.asp?logID=1053<![CDATA[ASP中一个字符串处理类加强版(VBScript)]]>ITの心得2009-06-19 02:04 PMhttp://or2.com.cn/blogview.asp?logID=1053   <%
   class StringOperations
   '***********************************************************************
   '' @功能说明: 把字符串换为char型数组
   '' @参数说明:  - str [string]: 需要转换的字符串
   '' @返回值:   - [Array] Char型数组
   '************************************************************************
    public function toCharArray(byVal str)
     redim charArray(len(str))
     for i = 1 to len(str)
   charArray(i-1) = Mid(str,i,1)
     next
     toCharArray = charArray
    end function
 
    '****************************************************************************
    '' @功能说明: 把一个数组转换成一个字符串
    '' @参数说明:  - arr [Array]: 需要转换的数据
    '' @返回值:   - [string] 字符串
    '****************************************************************************
    public function arrayToString(byVal arr)
     for i = 0 to UBound(arr)
      strObj = strObj & arr(i)
     next
     varrayToString = strObj
    end function
    '****************************************************************************
    '' @功能说明: 检查源字符串str是否以chars开头
    '' @参数说明:  - str [string]: 源字符串
    '' @参数说明:  - chars [string]: 比较的字符/字符串
    '' @返回值:   - [bool] 
    '****************************************************************************
    public function startsWith(byVal str, chars)
     if Left(str,len(chars)) = chars then
      startsWith = true
     else
      startsWith = false
     end if
    end function
 
    '****************************************************************************
    '' @功能说明: 检查源字符串str是否以chars结尾
    '' @参数说明:  - str [string]: 源字符串
    '' @参数说明:  - chars [string]: 比较的字符/字符串
    '' @返回值:   - [bool] 
 '****************************************************************************
 public function endsWith(byVal str, chars)
  if Right(str,len(chars)) = chars then
   endsWith = true
  else
   endsWith = false
  end if
 end function
 
    '****************************************************************************
    '' @功能说明: 复制N个字符串str
    '' @参数说明:  - str [string]: 源字符串
    '' @参数说明:  - n [int]: 复制次数
    '' @返回值:   - [string] 复制后的字符串
    '****************************************************************************
 public function clone(byVal str, n)
  for i = 1 to n
   value = value & str
  next
  clone = value
 end function
 
    '****************************************************************************
    '' @功能说明: 删除源字符串str的前N个字符
    '' @参数说明:  - str [string]: 源字符串
    '' @参数说明:  - n [int]: 删除的字符个数
    '' @返回值:   - [string] 删除后的字符串
    '****************************************************************************
 public function trimStart(byVal str, n)
  value = Mid(str, n+1)
  trimStart = value
 end function
 
    '****************************************************************************
    '' @功能说明: 删除源字符串str的最后N个字符串
    '' @参数说明:  - str [string]: 源字符串
    '' @参数说明:  - n [int]: 删除的字符个数
    '' @返回值:   - [string] 删除后的字符串
    '****************************************************************************
 public function trimEnd(byVal str, n)
  value = Left(str, len(str)-n)
  trimEnd = value
 end function
 
    '****************************************************************************
    '' @功能说明: 检查字符character是否是英文字符 A-Z  or a-z
    '' @参数说明:  - character [char]: 检查的字符
    '' @返回值:   - [bool] 如果是英文字符,返回TRUE,反之为FALSE
    '****************************************************************************
 public function isAlphabetic(byVal character)
  asciiValue = cint(asc(character))
  if (65 <= asciiValue and asciiValue <= 90)  or (97 <= asciiValue and asciiValue <= 122) then
   isAlphabetic = true
  else
   isAlphabetic = false
  end if
 end function 

'****************************************************************************
    '' @功能说明: 对str字符串进行大小写转换
    '' @参数说明:  - str [string]: 源字符串
    '' @返回值:   - [string] 转换后的字符串
    '****************************************************************************
 public function swapCase(str)
  for i = 1 to len(str)
   current = mid(str, i, 1)
   if isAlphabetic(current) then
    high = asc(ucase(current))
    low = asc(lcase(current))
    sum = high + low
    return = return & chr(sum-asc(current))
   else
    return = return & current
   end if
  next
  swapCase = return
 end function
 
    '****************************************************************************
    '' @功能说明: 将源字符串str中每个单词的第一个字母转换成大写
    '' @参数说明:  - str [string]: 源字符串
    '' @返回值:   - [string] 转换后的字符串
    '****************************************************************************
 public function capitalize(str)
  words = split(str," ")
  for i = 0 to ubound(words)
   if not i = 0 then
    tmp = " "
   end if
   tmp = tmp & ucase(left(words(i), 1)) & right(words(i), len(words(i))-1)
   words(i) = tmp
  next
  capitalize = arrayToString(words)
 end function  
    '****************************************************************************
    '' @功能说明: 将源字符Str后中的'过滤为''
    '' @参数说明:  - str [string]: 源字符串
    '' @返回值:   - [string] 转换后的字符串
    '****************************************************************************
 public function checkstr(Str)
  If Trim(Str)="" Or IsNull(str) Then 
   checkstr=""
  else
   checkstr=Replace(Trim(Str),"'","''")
  end if
 End function
 
 '****************************************************************************
    '' @功能说明: 将字符串中的str中的HTML代码进行过滤
    '' @参数说明:  - str [string]: 源字符串
    '' @返回值:   - [string] 转换后的字符串
    '****************************************************************************
 Public Function HtmlEncode(str)
  If Trim(Str)="" Or IsNull(str) then
   HtmlEncode=""
  else
   str=Replace(str,">","&gt;")
   str=Replace(str,"<","&lt;")
   str=Replace(str,Chr(32),"&nbsp;")
   str=Replace(str,Chr(9),"&nbsp;")
   str=Replace(str,Chr(34),"&quot;")
   str=Replace(str,Chr(39),"&#39;")
   str=Replace(str,Chr(13),"")
   str=Replace(str,Chr(10) & Chr(10), "</p><p>")
   str=Replace(str,Chr(10),"<br> ")
   HtmlEncode=str
  end if
 End Function
    '****************************************************************************
    '' @功能说明: 计算源字符串Str的长度(一个中文字符为2个字节长)
    '' @参数说明:  - str [string]: 源字符串
    '' @返回值:   - [Int] 源字符串的长度
    '****************************************************************************
 Public Function strLen(Str)
  If Trim(Str)="" Or IsNull(str) Then 
   strlen=0
  else
   Dim P_len,x
   P_len=0
   StrLen=0
   P_len=Len(Trim(Str))
   For x=1 To P_len
    If Asc(Mid(Str,x,1))<0 Then
     StrLen=Int(StrLen) + 2
    Else
     StrLen=Int(StrLen) + 1
    End If
   Next
  end if
 End Function
   '****************************************************************************
    '' @功能说明: 截取源字符串Str的前LenNum个字符(一个中文字符为2个字节长)
    '' @参数说明:  - str [string]: 源字符串
    '' @参数说明:  - LenNum [int]: 截取的长度
    '' @返回值:   - [string]: 转换后的字符串
    '****************************************************************************
 Public Function CutStr(Str,LenNum)
  Dim P_num
  Dim I,X
  If StrLen(Str)<=LenNum Then
   Cutstr=Str
  Else
   P_num=0
   X=0
   Do While Not P_num > LenNum-2
    X=X+1
    If Asc(Mid(Str,X,1))<0 Then
     P_num=Int(P_num) + 2
    Else
     P_num=Int(P_num) + 1
    End If
    Cutstr=Left(Trim(Str),X)&"..."
   Loop
  End If
 End Function
end class

%>
]]>http://or2.com.cn/blogview.asp?logID=1052<![CDATA[批量更改sql server数据库所有者的对象]]>ITの心得2009-06-16 05:49 PMhttp://or2.com.cn/blogview.asp?logID=1052

批量修改：
EXEC sp_MSforeachtable 'exec sp_changeobjectowner ''?'',''dbo'' '
单个修改：
exec sp_changeobjectowner '要改的表名','dbo'

方法一：直接点击该表-》设计-》属性-》更改上面的所有者。该方法针对于表少的情况下。

方法二：利用脚本直接执行，用系统帐号或者超户登陆到该数据库，然后执行下面语句：
sp_configure 'allow updates','1'
go
reconfigure with override
go
update sysobjects set uid=1 where uid<>1 --根据条件可以任意修改，在多用户之间切换。
go
sp_configure 'allow updates','0'
go
reconfigure with override

]]>http://or2.com.cn/blogview.asp?logID=1051<![CDATA[SQL Server 不存在或拒绝访问]]>ITの心得2009-06-12 12:16 AMhttp://or2.com.cn/blogview.asp?logID=1051[DBNETLIB][ConnectionOpen(connect()).]SQL Server 不存在或拒绝访问。
现从网上查阅问题解决办法有如下几种：
（A）1:你如果是独立上网的请把21端口打开.局域网把1433端口打开就可以了.
2;关闭防火墙!
（B）把数据库连接的 SqlLocalName="(local)" 的(local) 改成 IP试试。可以把(local) 该成127.0.0.1，或者改成外网IP
（C）打开服务，暂停全文检索及sql server服务 开启sql server服务再开启全文检索服务
（D）SQL Server 右键属性==>安全选项中的“所有权链接：”“允许跨数据库所有权链接”前面的勾要勾上(此操作需要重起SQL Server)。 2、你的问题我也出现过，我是两台电脑组成局域网，一台做网站服务器另一台为数据库服务器，配置为WIN2003-SP1+MS SQL-SP3 ，网站服务器直接连接外网，数据库服务器通过网站服务器连外网。刚开机的时候一切运行正常，但是没过多久就会出现上面的情况，后来检查发现原来是数据库服务器的防火墙开着呢，当时是为了防止外界攻击才设的，我在防火墙上开了1433端口后试了下还不行，后来关掉防火墙，并关闭网站服务器的INTERNET共享。然后运行，发现一切正常了。
5、 Sql Server远程连接数据库时发生“[DBNETLIB][ConnectionOpen(connect()).]SQL Server 不存在或拒绝访问 ”的情况，原因有很多种，一般情况都是用过检查：

    1、防火墙；
    2、1433端口；
   来排除故障，但今天发现有以下情况同样会造成这个现象。
  排除过程：
    1、检查防火墙设置和1433端口设置正确；
    2、如果出现“找不到网络路径”的报错，那么最好先PING一下它的IP地址。如果PING不通，那么需要先确认它是否连在网络或者网络连通性是否正常。然后查看是否启用了防火墙或者屏蔽掉了相应的端口。如果PING IP地址是正常的，但PING目标机器的计算机名不通，则需要查看是事网络名称解析有问题。关于如何诊断名称解析问题，可以先查看是所有客户端机器有问题还是某一台机器有问题。如果是所有机器的名称解析都有问题，那么你需要到网络的DNS或WINS服务器上检查了。如果只是某一台机器有问题，你需要先检查一下hosts和lmhosts文件；如果正常，可以重新注册一下DNS名字（ipconfig/reisterdns）。
       －－－－正常；
    3、如果出现“xxx计算机无法访问，您可能没有权限使用网络资源。请与这台服务器的管理员联系以查明您是否有访问权限”的报错，这可能是计算机的安全设置被改动过了，导致目标计算机无法被访问。可以采取以下步骤解决：
       －－－存在这个问题，通过以下方法来解决
         a. 打开“我的电脑”，在菜单上选择“工具”->“文件夹选项”->“查看”，清除“使用简单文件共享（推荐）”的选择。
          b. 右键点击“我的电脑”，选择“管理”，选择“本地用户和组”->“用户”，右键点击Guest用户，选“属性”，清除“帐户已停用”的选择。
           c. 点击“开始”->“运行”，输入secpol.msc，选择左边的“本地策略”->“用户权力指派”，双击右边的“从网络访问此计算机”，保证其中有Everyone，双击左边的“拒绝从网络访问此计算机”，保证其是空的。
          d. 选择左边的“本地策略”->“安全选项”，a.确认右边的“网络访问：本地帐户的共享与安全模式”为“经典”；b.确认右边的“Microsoft网络客户：为通讯启用数字签名（总是）”为“已停用”；c.确认右边的“Microsoft网络客户：为通讯启用数字签名（如果服务器允许）”为“已启用”；d.确认右边的“Microsoft网络服务器：为通讯启用数字签名（总是）”为“已停用”；e.确认右边的“Microsoft网络服务器：为通讯启用数字签名（如果服务器允许）”为“已启用”。
    4、用ODBC连接，结果一切OK。]]>http://or2.com.cn/blogview.asp?logID=1049<![CDATA[前缘]]>三生石畔2009-06-05 11:38 PMhttp://or2.com.cn/blogview.asp?logID=1049

人若真能转世 世间若真有轮回
那麽 我的爱 我们前世曾经是什麽


你 若曾是江南采莲的女子
我 必是你皓腕下错过的那朵


你 若曾是逃学的顽童
我 必是从你袋中掉下的那颗崭新的弹珠
在路旁的草丛中
目送你毫不知情地远去


你若曾是面壁的高僧
我必是殿前的那一柱香
焚烧著 陪伴过你一段静默的时光


因此 今生相逢 总觉得有些前缘未尽
却又很恍忽 无法仔细地去分辨
无法一一地向你说出


--------------------


席慕容的这散文诗中表现出来,如幻似梦,似有若无,又远又近的境界。人存不存在前生?我们就不用去做科学的探讨与论断了,仅就《前缘》一文而言,诗人是借前生的存在来表达她对相悦者炽烈的爱恋。 
这爱恋曾被忽视:"你若曾是江南采莲的女子,我比是你皓腕下错过的那一朵。" 
这爱恋含着埋怨:"你若曾是那逃学的顽童,我必是从你袋中掉落的那颗崭新的弹珠,在路旁的草丛里,目送你毫不知情地远去。" 
这爱恋甘愿牺牲:"你若是面壁的高僧,我必是殿前的那一炷香.焚烧着,陪伴你过一段静穆的时光。" 
三个并列的意象,均用词精美,格调清新,特别是把相悦者与自己放在不平等的地位,突出了己方的主动与猛烈,极大的增强了情感的穿透力。 
正因为如此,"今生相逢,总觉得有些前缘未了,却又很恍惚,无法仔细地去辨认,无法一一地向你说出。"这无法分辨,无法述说之情,就起了如幻似梦,似有若无的作用。
也因为将此生与前生交错描写,给我的感觉是又远又近,远近界限难以划分,现实与理想难以划分,心相与理性难以划分。 
]]>