vs.net

各种加密小结(asp/vb)

木子的blog — Thu, 12 Apr 2007 06:47:00 GMT

function encrypt(sStr,sFlag)
    Dim texts
    dim i
    for i=1 to len(sStr)
        texts=texts & chr(asc(mid(sStr,i,2))+i)
    next
    encrypt = texts
end function

function decrypt(sStr,sFlag)
    dim texts
    dim i
    for i=1 to len(sStr)
        texts=texts & chr(asc(mid(sStr,i,2))-i)
    next
    decrypt=texts
end function

function encryptBIG(sStr)
     dim i
     dim texts
     dim ch
     for i=1 to len(sStr)
            ch=mid(sStr,i,1)

       if asc(ch)>45126 and asc(ch)<63487 then
            texts=texts & chr(45127+63486+asc(ch))
        else
            texts=texts & ch
        end if
     next
     encryptBIG=texts
         response.write asc(ch)
end function

function encryptNew(sStr)
    Dim texts
    dim i
    for i=1 to len(sStr)
        texts=texts & chr((asc(mid(sStr,i,1)) And &HFFFF& ) +i)
    next
    encryptNew= texts
end function

function decryptNew(sStr)
    Dim texts
    dim i
    for i=1 to len(sStr)
        texts=texts & chr((asc(mid(sStr,i,1)) And &HFFFF&) -i)
    next
    decryptNew= texts
end function

'加密
function encryptNew2(venshop)
dim vena
for i=1 to len(venshop)
if mid(venshop,i,1)<>chr(13) then
    ven=asc(mid(venshop,i,1))+5
  if ven>127 or ven<33 then
      ven=ven-95
        end if
  vena=vena&chr(ven)
else
  vena=vena &"＋"
end if
next
      vencoded=vena
end function

'解密
function decryptNew2(venshop)
   dim vena
for i=1 to len(venshop)
if mid(venshop,i,1)<>"＋" then
  ven=asc(mid(venshop,i,1))-5
  if ven>126 then
   ven=ven-95
  elseif ven<32 then
   ven=ven+95
  end if

  vena=vena&chr(ven)
else
  vena=vena&chr(13)
end if
next
    vencode=vena
end function

'**************************************************************
'Description: 加密时以 uncode 码存取,解密时可用下述解密
'Createdate : 2007-04-10
'CreatedBy: jim

'UrlEncode 加密,即字符以 urlEncode形式存取来达到加密
Function URLEncode1(deStr)
dim enStr
enStr=Server.UrlEncode(deStr)
URLEncode1=enStr
End function

'UrlEncode 解码
Function URLDecode1(enStr)
dim deStr,strSpecial
dim c,i,v
deStr=""
strSpecial="!""#$%&'()*+,.-_/:;<=>?@[\]^`{|}~%"
for i=1 to len(enStr)
     c=Mid(enStr,i,1)
   if c="%" then
              v=eval("&h"+Mid(enStr,i+1,2))
                if inStr(strSpecial,chr(v))>0 then
                      deStr=deStr&chr(v)
                      i=i+2
               else
                      v=eval("&h"+ Mid(enStr,i+1,2) + Mid(enStr,i+4,2))
                      deStr=deStr & chr(v)
                     i=i+5
                end if
   else
             if c="+" then
                    deStr=deStr&" "
            else
                    deStr=deStr&c
            end if
   end if
next
        URLDecode1=deStr
End function

'********************************************************************
'///////////////////////////////////////////////////////////////////
'Description:
              1.采用5位固定原始密钥,由注册表读取
              2.由原始密钥生成加密密钥(5*51)
              3.将加密密钥对明文加密

'Createdate : 2007-04-12
'CreatedBy: jim

Function URLEncode(deStr)
dim enStr
enStr=Server.UrlEncode(encryptNew3(deStr))
URLEncode=enStr
End function

Function URLDecode(enStr)
dim deStr
deStr=DecryptNew3(enStr)
URLDecode=deStr
End function

'异或加密
Function encryptNew3(strCryptThis)
   Dim strChar, iKeyChar, iStringChar, i


   '原始密钥
   strOrigialKey=Application("OrigalKey")

'加密密钥固定长为5位,生成加密密钥长为255
strFullKey=CreateFullKey(strOrigialKey,51)

   for i = 1 to Len(strCryptThis)
      iKeyChar = Asc(mid(strFullKey,i,1))
      iStringChar = Asc(mid(strCryptThis,i,1))
      iCryptChar = iKeyChar Xor iStringChar
      strEncrypted = strEncrypted & Chr(iCryptChar)
   next
   EnCrypt = strEncrypted
End Function

'异或解密
Function DecryptNew3(strEncrypted)
Dim strChar, iKeyChar, iStringChar, i

'原始密钥
strOrigialKey=Application("OrigalKey")

'加密密钥固定长为5位,生成加密密钥长为255
strFullKey=CreateFullKey(strOrigialKey,51)

   for i = 1 to Len(strEncrypted)
      iKeyChar = (Asc(mid(strFullKey,i,1)))
      iStringChar = Asc(mid(strEncrypted,i,1))
      iDeCryptChar = iKeyChar Xor iStringChar
      strDecrypted = strDecrypted & Chr(iDeCryptChar)
   next
   DeCrypt = strDecrypted
End Function

'由原始密钥生成固定加密密钥
Function CreateFullKey(strOrigal,strlength)
    Dim i,UB
    Dim Temp
    Temp = ""
    For i = 1 To strlength
        Temp = Temp & strOrigal
    Next
    CreateFullKey= Temp
End Function

'//////////////////////////////////////////////////////////////////

静态页中利用AJAX.NET实现无刷新页面

木子的blog — Thu, 14 Dec 2006 02:54:00 GMT

一、导言(http://www.webjx.com/htmldata/2006-04-24/1145839632.html)

　　我们知道，ASP.net应用程序事实是在服务器上运行的，用户的请求要不断地送往远程的服务器，服务器执行完本地的程序后把重新装载页面再发送客户端。所以就出现了不断刷新的问题，页面不断闪烁。用户不厌其烦，运行效率也大大4降低，服务器的负荷加重。事实，客户端的请求在某一时刻只是通过向 Web 服务器提交新的请求来检索对用户输入所做的响应。这种情况下，开发人员可以使用 JavaScript 在客户端上加载所有响应，从而提供更好的用户体验。遗憾的是，在很多情况下，不必将所有响应都返回或加载到 JavaScript 要更好，只返回所要的结果，执行过程仍然在服务器上运行。AJAX 提供了一种新的中间选择，能够在维持及时响应和灵活性的同时利用基于服务器的应用程序。

　　AJAX依靠服务器作为中介来分发和处理请求。为了完成这项工作，.net封装类依赖于客户端的请求对象，而xmlHttpRequest对象被大部分的浏览器支持，因此使用这个对象是一个不错的解决方案。

　　因此，为了实现不刷新的页面，我们的客户端页面做成静态页面。静态页面通过Ajax.net调用.net类的方法。这是一种最简洁又高效的解决方案。

　　二、如何应用Ajax.net

　　1.在工程中引入Ajax.dll文件。

　　Ajax.dll是微软开发的应用在asp.net上的一个类库文件。该类库封装了XmlHttpRequest请求服务器的实现细节，是Ajax知识应用在asp.net平台上的解决技术。在.net项目中，添加上对其的引用，然后就可以开始使用ajax.dll封装进行开发了。

　　2.在web.config中设置HttpHandle

　　为了使其可以工作，第一步必须做的是在web.config中安装设置封装包的HttpHandle，不去详细解释HttpHandle是如何工作的，我们只需要了解他们可以用来处理asp.net请求。例如，所有的目的为*.aspx的请求可以通过System.Web.UI.PageHandlerFactory类发送到控制句柄，简单的说，我们把任何向ajax/*.ashx的请求发送到Ajax.PageHandlerFactory的请求处理句柄。

　　3.编写服务端函数

　　现在我们编写服务器端函数，他们可以被客户端异步的调用。尽管现在还不能支持全部的返回类型，我们仍坚持服务器端添加功能。在codebehind文件的页面类里，添加下面的方法：

[Ajax.AjaxMethod()]
public int ServerSideAdd(int firstNumber, int secondNumber)
{
　return firstNumber + secondNumber;
}

　　注意，这个函数有Ajax.AjaxMethod()定制属性，属性服务会告知ajax封装类为此方法创建一个javascript代理，这样才能被客户端调用。

　　三、应用实例(点击下载源码)

　　我们的应用程序主要是对数据库的操作，数据库的数据通过页面的表格呈现，页面完成增加、删除、更新、查询等功能。更主要的是它是一个通用的并且实现方法极为巧妙的例子。任何页面没有刷新现象并且代码十分精巧。下面的就通过Ajax技术实现这些功能。

　　·建立工程HttpForAjax，并在您的工程中引入Ajax.dll文件。

　　·在您的Web.config中加上。

＜httpHandlers＞
＜add verb="POST,GET" path="ajax/*.ashx" type="Ajax.PageHandlerFactory, Ajax"/＞
＜/httpHandlers＞

　　·建立您的HTML页。

　　1. 向工程里添加HTML页InfoClass.htm。该页面完成查询、常用工具及数据展现等功能。

　　页面主要放了四个DIV，一个是树" divTree "。一个是查询区叫"divFindTable"的，一个是工具栏叫
"divToolbar"的，一个是数据区叫"divDataGrid"的。如下图:

　　2. 在＜HEAD＞与＜/HEAD＞间加入一些引用如下：

＜script src=js/Xml.js＞＜/script＞
＜link href="css/myStyle.css" type="text/css" rel="stylesheet"＞
＜script src="/HttpForAjax/ajax/common.ashx" type="text/javascript"＞＜/script＞
＜script src="/HttpForAjax/ajax/Ttyu.AjaxData,HttpForAjax.ashx" type="text/javascript"＞＜/script＞

　　说明：Xml.js是用javascript写的一些客户端程序。

　　myStyle.css为样式风格文件。

　　common.ashx为调用Ajax的公用方法。

　　HttpForAjax.ashx为下面我们要用Ajax编写的类的引用。其中HttpForAjax为工程的命名空间。

　　Ttyu.AjaxData为自己开发的类，其中Ttyu为命名空间，AjaxData为类名。

　　3. 用javascript编写脚本方法，

function Init()
{
　DomTree=new dhtmlXTreeObject(document.getElementById('divTree'),"100%","100%",0);
　DomTree.setImagePath("imgs/");
　DomTree.enableDragAndDrop(true)
　DomTree.setDragHandler(myDragHandler);
　DomTree.setOnClickHandler(SelectTreeNode);
　var s= AjaxData.GetXmlTree().value;

　DomTree.loadXMLString(s);
　DomTree.openItem("R_1");
　SelectTreeNode("R_1");
　divToolbar.innerHTML=AjaxData.GetToolBarTable(TableName).value;
　divDataGrid.innerHTML=GetTableOuterHTML(TableName);
}

　　Init方法通过Ajax的GetXmlTree方法得到树的内容，GetToolBarTable取得工具栏的内容。通过GetTableOuterHTML方法取得物理表tInfoClass的所有数据并通过表格展现出来。

function Find()
{
　var Table=AjaxData.GetXmlFindTable("年级名称 like '%"+txtName.value +"%'");
　divDataGrid.innerHTML=Table.value;
}

　　查询方法Find()是通过Ajax的GetXmlFindTable方法按年级名称查询并把结果展现出来。

function OpenAddWeb()
{
　var RetID =OpenAddWin('InfoClass_edit.aspx?IsAdd=true',370,300);
　if(RetID==-1) return;
　InsertRow(DataGrid1,RetID);
}

　　OpenAddWeb方法打开InfoClass_edit.aspx页在该页上完成增加数据的功能。如果返回值不为-1则表示有新数据增加的并把数据插入到表格的最后一行。RetID表示最后一行的ID.

function OpenEditWeb(ThisCell)
{
　var ID=ThisCell.previousSibling.previousSibling.innerText;
　var RetID =OpenAddWin("InfoClass_edit.aspx?ID="+ID+"&IsAdd=false",370,300);
　if(RetID==-1) return;
　//有更新行
　var CurrRow=ThisCell.parentElement
　SetRowText(CurrRow);
　// SetRowText(CurrRow,RetDataRow);
}

　　OpenEditWeb方法是当用户点击的单元格后打开InfoClass_edit.aspx页在该页上完成编辑该行数据的功能。如有更新行则把当前行的内容更换..

　　·建立Ajax类。（见文件AjaxData.cs）命名空间为Ttyu，类名为AjaxData。

　　1. 定义静态变量mDt。mDt是读取到物理表的数据并保存在内存中的数据表对象。我们的主要操作都是靠它完成。定义为静态的是我们不希望反复访问数据库。我们一次性读取，永久使用。

static public DataTable mDt;

　　2.定义我们的主要方法。在每个方法的上行加上[Ajax.AjaxMethod()]。

//得到表TableName的所得数据，以XML字符串返回
[Ajax.AjaxMethod()]
public string GetTableOuterHTML(string TableName)
{
　DataTable dt=db.DB.GetDataTable(TableName);
　mDt=dt;
　return db.GetTableOuterHTML(dt.DefaultView);
}

　　GetTableOuterHTML方法是由物理表名读取到内存中并通过其视图得到以XML格式的Table。这里我们读取后保存在mDt中。用数据表的视图是我们的查询也通过该方法呈现数据。

//得到表TableName的所得数据，以XML字符串返回
[Ajax.AjaxMethod()]
public string GetXmlFindTable(string RowFilter)
{
　DataTable Dt=mDt;
　DataView dv=Dt.DefaultView;
　dv.RowFilter=RowFilter;
　return db.GetTableOuterHTML(dv);
}

　　GetXmlFindTable是按查询条件从mDt中查询到数据并返回给客户端。

//删除行
[Ajax.AjaxMethod()]
public bool DeleteRow(string TableName,int ID)
{
　string SQL = "delete from " + TableName + " where ID=" + ID;
　bool isSuccess= db.DB.ExecuteSQL(SQL);
　if(isSuccess)
　{
　　DataRow dr=mDt.Select("ID="+ID)[0];
　　mDt.Rows.Remove(dr);
　}
　return isSuccess;
}

　　DeleteRow是删除物理表的一行，并在mDt中也同步地删除。

//把数据行转化为数组返回
[Ajax.AjaxMethod()]
public object GetDataRow(int iID)
{
　DataRow dr=mDt.Select("ID="+iID)[0];
　return dr.ItemArray;//数字类型不能为空
}
GetDataRow是从内存表mDt得到ID号为iID的一行，通过数组方式返回给客户端。
[Ajax.AjaxMethod()]
public string GetToolBarTable(string TableName)
{
　return db.GetToolBarTable(TableName);
}

　　GetToolBarTable是组织成工具栏的内容返回给客户端。

　　·建立业务数据类ttyuPKData。（见文件ttyuPKData.cs）命名空间为Ttyu，类名为ttyuPKData。

　　该类中有些常用的方法。

　　public bool InsertDataRow(DataRow dr,int BeginColumnIndex)为向物理表中把数据行dr插入，BeginColumnIndex表示从开始的列插入。

　　public bool UpdateDataRow(DataRow dr,int BeginColumnIndex,string Filter) 为向物理表中把数据行dr的数据更新，BeginColumnIndex表示开始更新的列。Filter表示所要更新的行。是一筛选条件。

　　public string GetTableOuterHTML(DataView dv)是个通用的把数据视图展现为Table的方法。并通过class定义样式。

//由一个数据视图得到该表的表头及所有数据，以XML格式的表字符串返回
public string GetTableOuterHTML(DataView dv)
{
StringBuilder ret = new StringBuilder();
ret.Append("＜table class='DataGrid' id='DataGrid1' cellspacing=1 cellpadding=4＞" );
ret.Append("＜tr class='DataGridHeaderStyle'＞");
ret.Append("＜td width='5'＞＜input type='checkbox' onclick='SelectAll(this)'＞＜/td＞ ");
//标题
foreach(System.Data.DataColumn dc in dv.Table.Columns )
{
if(dc.Ordinal==0) //该列隐藏
ret.Append("＜td class='IDColumn'＞"+dc.ColumnName+"＜/td＞");
else
ret.Append("＜td＞"+dc.ColumnName+"＜/td＞");
}
ret.Append("＜/tr＞");
//这时是视图中筛选后的数据
foreach(DataRowView drv in dv)
{
DataRow dr=drv.Row;//dv.Table.Rows[i];
ret.Append(GetRowOuterHTML(dr));
}
ret.Append("＜/table＞");
return ret.ToString ();
}

　　·建立页面数据编辑类（见文件PageEdit.cs）命名空间为Ttyu.Web，类名为PageEdit。

　　该类是个通用的通过继承的技巧实现了所有编辑页(包括增加、修改数据)功能的统一处理。页中不需要一行代码。

　　结论

　　Ajax技术可以给客户端提供丰富的客户体验，而ajax.net为您容易的实现这样强大的功能提供了可能。静态页面是不出现刷新问题的。我们的静态页面通过Ajax完全可与asp.net结合起来。通过.net进行后台的管理。前台通过javascript调用。这样完美的结合是解决问题的最佳方法。

作者：黎宇来源：天极开发

html在线编辑器的调用方法---原理和实例

木子的blog — Thu, 07 Dec 2006 05:41:00 GMT

来自51js.com
收藏-2004
HTML在线编辑器不需要懂得使用Dreamweaver，会用Word就会使用此编辑器，在文章系统或者是新闻系统需要文字编辑的web程序中非常实用。
但是如何将html编辑器嵌入到web页中和怎么取得里面的数据呢？！
首先我们假定我们所要调用得HTML在线编辑器放在一个单独得页面中，文件名是gledit.htm上传图片的前台页面：http://www.jfinfo.com/room/admin/img_upload.asp。
HTML在线编辑器有两种基本调用方法
一、使用object调用(http://www.jfinfo.com/room/admin/editor.asp):
1、怎么在web页中嵌入html编辑器：我们在需要嵌入得位置加入以下html代码：<object id=doc_html data="gledit.htm" width=530 height=320 type=text/x-scriptlet VIEWASTEXT></object>
其中object标签里面得data后面接得数据就是我们所要调用得在线编辑器页得路径，id就是我们调用object得id，后面取编辑器中得数据时就要用到这个id。Width和height就是编辑器得高度和宽度了。
2、怎么取得html编辑器中的数据：所有需要提交的内容我们都是放在一个表单里面，同样利用object调用的编辑器也放在这个表单里面，同时我们可以设置一个隐藏的文本区域(<textarea name=d"content" style="display:none"></textarea>或<INPUT TYPE="hidden" name="content">)用以在提交的时候临时保存html在线编辑器的数据，因为在asp或者jsp，php中不能直接获取表单中的object的内容，所以我们必须借助隐藏文本区域来获取数据。我们在表单提交的同时将object里面的内容复制到隐藏的文本区域中。详细代码如下：
<script language="javascript">
function CheckForm()
{
document.form1.content.value=document.form1.doc_html.value;
}
</script>
<form method="post" action="add_news_save.asp" onsubmit="CheckForm()" name="form1">
<object id=doc_html name= doc_html style="LEFT: 0px; TOP: 0px" data=" gledit.htm" width=530 height=320 type=text/x-scriptlet VIEWASTEXT></object>
<input type="hidden" name="content" >
</form>
这样在后台处理的页面中我们就可以直接通过取隐藏区域content的数据来获取html在线编辑器的数据。
3、怎么在文本编辑器中加入上传本机图片到html在线编辑器中：首先我们使得在点击插入图片的按钮时弹出一个上传图片的窗口，我们利用自己写的程序来实现上传本机图片到服务器上，然后我们需要记录图片的路径，然后通过html在线编辑器的值中加入显示图片的html标签。详细说明及代码如下：
在编辑器中我们在插入图片的按钮上加入事件onclick="window.open('img_upload.asp','img_upload','width=481 height=190')">在'img_upload.asp'中我们将提交的图片上传到服务器制定目录然后记录图片路径
<script language=javascript>
var src='<%="upload/"&newname%>';
opener.form1. doc_html.value +="<img border=0 src="+src+">";
window.close();
</script>
这样就实现了简单的将上传的图片插入到编辑器中。
4、怎么在编辑修改文章的时候调用HTML在线编辑器来修改数据：当我们把在添加的时候将HTML在线编辑器来修改数据提交到数据库后我们还需要能将数据库的内容用HTML在线编辑器来修改数据。首先我们在表单中加入一个隐藏区域来放置数据库中的内容，例如<TEXTAREA style="display:none" NAME="content" ROWS="20" COLS="70"><%= rs("Content")%></TEXTAREA>，要注意这里我们用隐藏的textarea而不能用隐藏的input，因为数据里面可能包含了回车换行，所以如果我们使用<INPUT TYPE="hidden" name=content value="<%=(rs("Content")%>">很可能因为<%=(rs("Content")%>有换行而出现HTML错误（value=后面接的数据必须保证是在一行，否则出错）。然后按照前面介绍的方法使用object调用HTML在线编辑器，方法和代码同上，现在我们要做的其实就是提交时候的逆过程，我们只要将隐藏文本区域的内容复制到HTML在线编辑器就可以了，在这里我们在body里面加上<body onload="document.form1. doc_html.value=document.form1.content.value">，这样在页面装载完的时候就可以将数据库中的内容放入HTML在线编辑器中编辑了，提交过程和上面介绍的一样，在此就不赘述了。

二、使用iframe调用（http://qxd.5599.net/by/source/article/manage/gledit.htm ）
1、怎么在web页中嵌入：我们在需要嵌入得位置加入以下html代码：<IFRAME SRC="gledit.htm" id='content_html' style="LEFT: 0px; POSITION: absolute; TOP: 0px;z-index:0" width="100%" height="100%"></IFRAME>其中"src="后面接得数据就是我们所要调用得在线编辑器页得路径，id就是我们调用IFRAME得id，Width和height就是编辑器得高度和宽度了。
2、怎么取得html编辑器中的数据：同样所有需要提交的内容我们都是放在一个表单里面，同时我们可以设置一个隐藏的文本区域(<textarea name="content" style="display:none"></textarea>或<INPUT TYPE="hidden" name="content">)用以在提交的时候临时保存html在线编辑器的数据，我们借助隐藏文本区域来获取数据。我们在表单提交的同时将object里面的内容复制到隐藏的文本区域中。详细代码如下：
function subchk(cmd)
{
document.form1.content.value= window.content_html.getHTML();
}
</SCRIPT>
<FORM METHOD=POST ACTION="Article_add_save.gl" name="form1" onsubmit=" subchk()">
<input type="hidden" name="content" >
<IFRAME SRC="gledit.htm" id='content_html' style="LEFT: 0px; POSITION: absolute; TOP: 0px;z-index:0" width="100%" height="100%"></IFRAME>
</FORM>
在后台处理的页面中我们就可以直接通过取隐藏区域content的数据来获取html在线编辑器的数据。
2、怎么取得html编辑器中的数据：所有需要提交的内容我们都是放在一个表单里面，同样利用object调用的编辑器也放在这个表单里面，同时我们可以设置一个隐藏的文本区域(<textarea name="content" style="display:none"></textarea>或<INPUT TYPE="hidden" name="content">)用以在提交的时候临时保存html在线编辑器的数据，因为在asp或者jsp，php中不能直接获取表单中的object的内容，所以我们必须借助隐藏文本区域来获取数据。我们在表单提交的同时将object里面的内容复制到隐藏的文本区域中。详细代码如下：
<script language="javascript">
function CheckForm()
{
document.form1.content.value=document.form1.doc_html.value;
}
</script>
<form method="post" action="add_news_save.asp" onsubmit="CheckForm()" name="form1">
<object id=doc_html name= doc_html style="LEFT: 0px; TOP: 0px" data=" gledit.htm" width=530 height=320 type=text/x-scriptlet VIEWASTEXT></object>
<input type="hidden" name="content" >
</form>
这样在后台处理的页面中我们就可以直接通过取隐藏区域content的数据来获取html在线编辑器的数据。
3、怎么在文本编辑器中加入上传本机图片到html在线编辑器中：首先我们使得在点击插入图片的按钮时弹出一个上传图片的窗口，我们利用自己写的程序来实现上传本机图片到服务器上，然后我们需要记录图片的路径，然后通过在调用html在线编辑器的web页中写一个函数在光标的位置插入显示图片的html标签。详细说明及代码如下：
在编辑器中我们在插入图片的按钮上加入事件onclick="window.open('img_upload.asp','img_upload','width=481 height=190')">在调用编辑器的页面中我们定义好插入html代码到编辑器的函数
<script language=javascript>
function insertHtml(HtmlCode)
{
var win=window.content_html.idEditbox.document;//其中编辑区域是gledit.htm中的一个iframe，id是idEditbox
window.content_html.idEditbox.focus();//是编辑器获得焦点，防止代码插入在编辑器外地方
win.selection.createRange().pasteHTML(HtmlCode)//在光标的位置插入html代码
}
</script>
在处理上传图片的文件中，我们调用父窗口的函数插入html代码
<script language=javascript>
var src='<%=" upload/"&newname%>';
var htmlcodes;
htmlcodes = "<img src='"+src+"' alt='<%=theForm("alt")%>' align='<%=theForm("align")%>' border='<%=theForm("border")%>' hspace='<%=theForm("hspace")%>' vspace='<%=theForm("vspace")%>'>";
opener.insertHtml(htmlcodes)
window.close();
</script>
这样就实现了简单的将上传的图片插入到编辑器中。
4、怎么在编辑修改文章的时候调用HTML在线编辑器来修改数据：当我们把在添加的时候将HTML在线编辑器来修改数据提交到数据库后我们还需要能将数据库的内容用HTML在线编辑器来修改数据。首先我们在表单中加入一个隐藏区域来放置数据库中的内容，例如<TEXTAREA style="display:none" NAME="content" ROWS="20" COLS="70"><%= rs("Content")%></TEXTAREA>，在这里我们在调用编辑器的页面中的body标签里面加上<BODY onload="insertHtml(document.form1.content.value)">其中inserthtml()就是我们定义好插入html代码到编辑器的函数（具体参考插入图片的代码）。这样在页面装载完的时候就可以将数据库中的内容放入HTML在线编辑器中编辑了，提交过程和上面介绍的一样，在此就不赘述了。

在net中DataGrid中显示带有主次结构的数据!

木子的blog — Thu, 02 Mar 2006 02:47:00 GMT

大家在实际工作中有没有遇到要在DataGrid中显示带有主次结构的数据呢？如果你对ADO.NET和SQL Server2000熟悉的话，我们下面就举一个利用VS.NET自带的示例数据库Northwind和VB.NET来说明如何实现这一目标。
首先，我们先准备要显示的带有主次结构的数据。

下面就是要绑定到HierarchicalDataGrid.aspx的VB.NET代码文件HierarchicalDataGrid.aspx.vb的内容：

Imports System.Data.SqlClient

Public Class HierarchicalDataGrid
Inherits System.Web.UI.Page
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

#Region " Web Form Designer Generated Code "

'下面的调用对Web Form设计器来说是必须的
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 这个方法是为Web Form设计器调用的
'不要用代码编辑器改变这里.
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'打开数据库连接
Dim OrdersConnection As New SqlConnection("Server=(local)\NetSDK;Database=northwind;Trusted_Connection=yes")

'得到订单和订单详细信息
Dim OrderAdapter As New SqlDataAdapter("Select * from Orders; select OrderID ,Products.ProductName,[order Details].Unitprice,[order Details].Quantity,[order Details].discount from [order Details],Products where [Order Details].ProductId=Products.ProductID", OrdersConnection)

'创建并填充DataSet对象
Dim OrderDataSet As New DataSet()

OrderAdapter.Fill(OrderDataSet)

'设定表名字
OrderDataSet.Tables(0).TableName = "Orders"
OrderDataSet.Tables(1).TableName = "Order Details"

'在基于OrderID字段的两个表之间建立父子关系
Dim Parent As DataColumn = OrderDataSet.Tables("Orders").Columns("OrderID")
Dim Child As DataColumn = OrderDataSet.Tables("Order Details").Columns("OrderID")

Dim OrderRelation As DataRelation = New DataRelation("OrderRelation", Parent, Child, False)

'为DataSet添加关系
OrderDataSet.Relations.Add(OrderRelation)

'把DataGrid绑定到Orders表
DataGrid1.DataSource = OrderDataSet.Tables("Orders").DefaultView
DataBind()

End Sub

Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
e.Item.Cells(0).BackColor = System.Drawing.Color.Ivory
End Sub
End Class

在HierarchicalDataGrid.aspx中，我们为DataGrid1建立模板列，并把另外一个DataGrid嵌入到这个模板列，父一级的DataGrid用来显示主记录，比如：订单。子一级DataGrid用来显示详细信息，比如：订单的详细信息。我们这样为子DataGrid动态指定数据源：

DataSource='<%# Ctype(Container.DataItem,DataRowView).CreateChildView("OrderRelation") %>'>

上面这句就是实现显示主次关系数据的关键。根据当前父一级记录，DataRowView.CreateChildView利用前面创建的关系的名字作为参数获得子记录，并把它绑定到子DataGrid上。

下面就是我们要显示的ASPX页面的代码，HierarchicalDataGrid.aspx：

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="HierarchicalDataGrid.aspx.vb" Inherits="HierarchicalDataGrid.HierarchicalDataGrid" %>
<%@ Import namespace="System.Data"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>显示主次关系数据的例子</title>
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body>
<form id="FrmDataGrid" method="post" runat="server">
<P align="center">
<asp:DataGrid id="DataGrid1" BorderColor="#0099FF" runat="server" ShowHeader="False" Width="470px" CellPadding="0" CellSpacing="0" AutoGenerateColumns="False" BorderWidth="2px">
<Columns>
<asp:TemplateColumn>
<ItemTemplate>
<TABLE cellSpacing="0" cellPadding="0" width="100%" border="0">
<TR>
<TD bgColor="#FF6600"><B>订单号：
<%# DataBinder.Eval(Container.DataItem, "OrderID") %>
</B>
</TD>
</TR>
<TR>
<TD align="right">
<asp:DataGrid id=DataGrid2 runat="server" AutoGenerateColumns="False" BorderColor="#33FF33" DataKeyField="OrderID" DataSource='<%# Ctype(Container.DataItem,DataRowView).CreateChildView("OrderRelation") %>'>
<HeaderStyle Font-Bold="True" ForeColor="#CC0066" BackColor="#FFCCFF"></HeaderStyle>
<Columns>
<asp:BoundColumn Visible="False" DataField="OrderID" ReadOnly="True"></asp:BoundColumn>
<asp:TemplateColumn HeaderText="产品名称">
<HeaderStyle Width="300px"></HeaderStyle>
<ItemTemplate>
<%# DataBinder.Eval(Container.DataItem, "ProductName") %>
</ItemTemplate>
</asp:TemplateColumn>
<asp:BoundColumn DataField="UnitPrice" HeaderText="单价"></asp:BoundColumn>
<asp:BoundColumn DataField="Quantity" HeaderText="数量"></asp:BoundColumn>
<asp:BoundColumn DataField="Discount" HeaderText="折扣"></asp:BoundColumn>
</Columns>
</asp:DataGrid></TD>
</TR>
</TABLE>
</ItemTemplate>
</asp:TemplateColumn>
</Columns>
</asp:DataGrid></P>
</form>
</body>
</HTML>

以上copy网友注意:
1.在ASPX页面html代码中要加入 <%@ Import namespace="System.Data"%> 否则编译不通过!
2.修改成c#时要修改 CType转换类型.便可!
<%@ Import namespace="System.Data" %><%@ Import namespace="System.Data" %><%@ Import namespace="System.Data" %><%@ Import namespace="System.Data" %><%@ Import namespace="System.Data" %><%@ Import namespace="System.Data" %>

如何控制DataGrid里的内容换行与不换行？

木子的blog — Mon, 26 Dec 2005 02:11:00 GMT

<%@ Page Language="C#" AutoEventWireup="True" %>
<%@ Import Namespace="System.Data" %>
<html>
<script runat="server">
int start_index;
ICollection CreateDataSource()
{
DataTable dt = new DataTable();
DataRow dr;

dt.Columns.Add(new DataColumn("IntegerValue", typeof(Int32)));
dt.Columns.Add(new DataColumn("StringValue", typeof(string)));
dt.Columns.Add(new DataColumn("CurrencyValue", typeof(double)));

for (int i = start_index; i < start_index + ItemsGrid.PageSize; i++)
{
dr = dt.NewRow();
dr[0] = i;
dr[1] = @"我是中文文字，I am English words，我不想换行，
I don't wanna have new lines，欢迎访问
<a href='http://dotnet.aspx.cc/'>http://dotnet.aspx.cc/</a>，
有好料啊：）";
dr[2] = 1.23 * (i+1);

dt.Rows.Add(dr);
}

DataView dv = new DataView(dt);
return dv;
}

void Page_Load(Object sender, EventArgs e)
{
//对于没有数字的内容，下面这行完全满足要求，但加了数字就不行，必须调用OnItemDataBound
ItemsGrid.Attributes.Add("style","word-break:keep-all;word-wrap:normal");

//下面这行是自动换行
//ItemsGrid.Attributes.Add("style","word-break:break-all;word-wrap:break-word");

if (!IsPostBack)
{
BindGrid();
}
}

void BindGrid()
{
ItemsGrid.DataSource=CreateDataSource();
ItemsGrid.DataBind();
}

void Item_DataBound(Object sender, DataGridItemEventArgs e)
{
if( e.Item.ItemType == ListItemType.Item ||
e.Item.ItemType == ListItemType.AlternatingItem)
e.Item.Cells[1].Text = "<nobr>" + e.Item.Cells[1].Text + "</nobr>";
}

</script>
<body>
<form runat="server">
<asp:DataGrid id="ItemsGrid" runat="server" BorderColor="black"
OnItemDataBound="Item_DataBound" AutoGenerateColumns="false">

<AlternatingItemStyle BackColor="#DEDEDE"></AlternatingItemStyle>
<HeaderStyle BackColor="#EEEEFF" HorizontalAlign="Center"></HeaderStyle>

<Columns>
<asp:BoundColumn HeaderText="序号" DataField="IntegerValue"/>
<asp:BoundColumn HeaderText="文字" DataField="StringValue"/>
<asp:BoundColumn HeaderText="价格" DataField="CurrencyValue" DataFormatString="{0:c}">
<ItemStyle HorizontalAlign="right"></ItemStyle>
</asp:BoundColumn>
</Columns>

</asp:DataGrid>
</form>
</body>
</html>