回归

    摘要：这里我就用xml代替数据，写一个新闻发布系统，希望能够起到抛砖引玉的作用，使更多的人能够了解这些最新的技术。下面介绍这几个文件。

contents.xml
<?xml version="1.0" encoding="GB2312"?>
<topiclist type="AspCool News">
<topic>
<title>aspcool news!</title>
<href>main.aspx?name=hello</href>
</topic>
<topic>
<title>Resolve a problem</title>
<href>main.aspx?name=test</href>
</topic>
</topic    （全文共10435字）——点击此处阅读全文

   我们通常备份数据库时，需要登录数据库服务器去备份和恢复，这样很不方便，其实SQL SERVER自带的命令可能让我们很简单地实现远程通过Asp.Net备份和恢复数据库。

BACKUP DATABASE '被备份的数据库名' TO DISK = '备份文件路径';
ALTER DATABASE '被恢复的数据库名' SET OFFLINE WITH ROOLBACK IMMEDIATE;
RESTORE DATABASE '被恢复的数据库名' FROM DISK = '备份文件路径';
ALTER DATABASE '被恢复的数据库名' SET ONLINE WITH ROOLBACK IMMEDIATE;

   简单几条命令就可以完成数据库的备份和恢复，在Asp.Net中，可以像调用Sql语句一样调用这四条语句，轻轻松松实现SQL SERVER数据库的备份和恢复。

   例子(以Northwind为例)：
   1、备份Northwind数据库到C盘根目录下，以'Northwind.bak'为名：
        BACKUP DATABASE 'Northwind' TO DISK = 'C:\Northwind.bak';

   2、恢复Northwind数据库,C盘根目录下的'Northwind.bak'备份文件：
       a、将数据库置于离线状态
           ALTER DATABASE 'Northwind' SET OFFLINE WITH ROOLBACK IMMEDIATE;
       b、恢复Northwind数据库
           RESTORE DATABASE 'Northwind' FROM DISK = 'C:\Northwind.bak';
       c、将数据库置于在线状态
           ALTER DATABASE 'Northwind' SET ONLINE WITH ROOLBACK IMMEDIATE;

    摘要：问题出自于C:\Program Files\Common Files\Microsoft Shared\MSI Tools\MergeMod.dll的版本不对，版本是1.20.1827.1，最新版是2.0.2542.0，在网上找了一个，重新注册一个就解决了，这里也给大家介绍一个专业的搜索dll的网站http://www.webzila.com/?wz=dll，还不错    （全文共229字）——点击此处阅读全文

    摘要：做B/S项目已经很久了，总是羡慕应用软件漂亮的安装程序，也见到有一些使用InstallShield来做B/S系统安装程序，听说设置有点繁复，一直没有去研究它。最近新做了一个ASP.NET的查询项目，需要做一个安装程序，恰好发现Microsoft Visual Studio.net 2003可以完全胜任，那我又怎么会舍近求远呢！呵呵，闲话少说，来看看我如何制作吧！       首先,运行Microsoft Visual Studio .NET 2003，点“文件”→“新建” →“项目”，会出现”项目设置对话框”,如图(1)。<    （全文共12250字）——点击此处阅读全文

    摘要：    （全文共368字）——点击此处阅读全文

“无刷新页面”，只是一种不确切的效果描述（其实还有其他各种方法来实现这个效果），更确切的说法是：在页面上用JavaScript调用服务器端的一个方法，然后处理返回的数据。实现它最标准的方法当然是XMLHTTP。但是，程序员都是懒惰的家伙，每个人都希望能有更方便的方法，或者，更佳的包装。比如，Lostinet的Rane就是对XMLHTTP的一个很好的包装。

终于，在ASP.NET 2.0里面，我们可以轻松的来做到这点了。服务器端任何实现了System.Web.UI.ICallbackEventHandler接口的控件，都可以通过RaiseCallbackEvent()方法来处理从页面上的JS脚本传递过来的请求和数据，处理后，再将结果传回给页面。这项能力的底层仍然是XMLHTTP。

下面是一个简单的演示：

在页面上，我们放上两个文本框和一个按钮：
＜INPUT id="txtMessage"＞
＜INPUT onclick="callToServer();" type="button" value="Call to Server"＞
Result : ＜INPUT id="txtResult" ＞

当点击按钮的时候，将调用JS脚本方法callToServer()，JS脚本如下：
function callToServer()
{
    var param = document.getElementById("txtUsername").value;
    var context = ""; 
    ＜% = ClientScript %＞
}

function handleResultFromServer(result, context)
{
    document.getElementById("txtResult").value = result;
}

handleResultFromServer()方法则负责将从服务器传回的数据写到txtResult这个文本框里面。

再看看服务器端的代码：

public partial class Default_aspx : System.Web.UI.ICallbackEventHandler
{
    private String ClientScript
    {
        get
        {
            return this.GetCallbackEventReference(this, "param", "handleResultFromServer", "context");
        }
    }

    public string RaiseCallbackEvent(string eventArgument)
    {
        return "客户端在[" + DateTime.Now.ToString() + "]传送来 [" + eventArgument + "].";
    }
}

我们让页面直接实现ICallbackEventHandler接口，然后接口定义的RaiseCallbackEvent()方法中将服务器的时间和传来的数据一起返回回去。

ClientScript属性的作用是，它调用了页面的GetCallbackEventReference()方法，获得了让客户端有能力调用服务器端方法的JS脚本，并输出到页面的callToServer()方法中，这样，点击页面按钮时，就开始执行页面上包含了调用服务器方法的的callToServer()方法。

注意GetCallbackEventReference()方法的参数，在参数中，我们定义了客户端的哪个变量包含了要传递给服务器，服务器方法执行后，调用客户端的哪个方法等信息。GetCallbackEventReference()的详细参看请看这里。

最后，我们这个页面的执行效果就是：

 

天气预报
地址：http://www.wopos.com/webservice/weather.asmx
介绍：使用 getWeather(city)方法：city-直接输入全国大中小城市及国外中城市中文名
例：
  Public sub GetWopWeather(ByVal city As String)
  Dim s As String
        Try
     Dim weat As New localhost.Weather
            s = weat.getWeather(city)
     If s.IndexOf("没有查到相关结果") > -1 Then
     Else
            s = s.Replace("图1==", "<img src=")
            s = s.Replace(",图2==", "></img><img src=")
            s = s.Replace(",天气", "></img>,天气")
                s = s.Replace(",", "<br/>").Replace("==", "：")
     End If
        Catch ex As Exception
            s = "提供天气数据的网络不通，请稍后再试"
        End Try
          response.write(s)
        End sub

手机归属地
地址：http://www.wopos.com/webservice/Mobile.asmx
介绍：使用 getMobileArea(mobileCode) mobileCode-手机号码或前7位

股票走势图
地址：http://www.wopos.com/webservice/Stock.asmx
介绍：使用 getStockChart(StockCode) StockCode-股票代码，返回值为图片的HTTP地址.

IP地址查询
地址：http://www.wopos.com/webservice/ips.asmx
介绍：使用 getIParea(ip)方法返回IP所在地，使用AddIPRange(startIP,EndIP,AreaInfo)增加新的IP地址信息,使用 IpToInt 和 IntToIp可对IP地址从字符串到整型的互相转换.

成语典故
地址：http://www.wopos.com/webservice/chengyu.asmx
介绍：
使用 ChengYuDianGu(chengyu)方法，参数为成语或成语的拼音缩写。如返回多个成语以*_*分隔

生成验证码图像
地址：http://www.wopos.com/webservice/vimg.asmx
介绍：使用 GetVerifyImg(str4,Lenght,Width,Style)生成一张字符图像，用于注册、发贴等场合做图像验证。后面三个参数为保留参数，暂时无效，用于以后扩充。 目前的很简单,仅供测试。

RSS种子生成
地址：http://www.wopos.com/webservice/Rss.asmx
介绍：使用 OutPutRss()方法：Rss Item数据项以DataTable 方式提供。数据项数不能超过100调用后直接输出RSS2.0 XML。
例：
Imports System.Data

    Partial Class Test : Inherits System.Web.UI.Page

   Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            Dim tb As New DataTable
            Dim rw As DataRow
            tb.Columns.Add(New DataColumn("title", System.Type.GetType("System.String")))
            tb.Columns.Add(New DataColumn("link", System.Type.GetType("System.String")))
            tb.Columns.Add(New DataColumn("author", System.Type.GetType("System.String")))
            tb.Columns.Add(New DataColumn("pubdate", System.Type.GetType("System.String")))
            tb.Columns.Add(New DataColumn("category", System.Type.GetType("System.String")))
            tb.Columns.Add(New DataColumn("description", System.Type.GetType("System.String")))

            For i As Int16 = 0 To 10
                rw = tb.NewRow
                rw.Item("title") = "title" & i
                rw.Item("link") = "http://www.wopos.com/test.htm"
                rw.Item("author") = "author " & i
                rw.Item("pubdate") = Date.Now.ToString
                rw.Item("category") = "category " & i
                rw.Item("description") = "description " & i
                tb.Rows.Add(rw)

            Next
            Dim rss As New Rss
            rss.OutPutRss(tb, "中国新闻", "中新", "www.wopos.com", "wopos.com", "新闻", "图片", "http://www.wopos.com", "http://www.wopos.com/image/wopos.gif")

        End Sub
End Class