不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

本来早就该散分了，一直没机会啊，这回升角了，可是比边城浪子慢多了，哈哈

楼主sunboby（其实我爱你）2004-09-04 13:31:00 在 Web 开发 / ASP 提问

散分问题点数：100、回复次数：83Top

1 楼zltostem（五湖沸人）回复于 2004-09-04 13:34:33 得分 2

恭喜~~~

这样散分会被...Top

2 楼themedy（太菜了）回复于 2004-09-04 13:37:46 得分 2

2楼
恭喜。。接分。。Top

3 楼wgb219（wgb）回复于 2004-09-04 13:38:20 得分 2

接分~~~恭喜~~~Top

4 楼blestcc（我穿墙而过）回复于 2004-09-04 13:42:16 得分 2

散分要有正当理由的Top

5 楼fallback（要的就是虚荣）回复于 2004-09-04 13:44:40 得分 2

厉害Top

6 楼minxiaojuan（潇洒的风）回复于 2004-09-04 13:45:04 得分 2

我也快散了。
等肆条叁角裤的时候（下周之内）Top

7 楼minxiaojuan（潇洒的风）回复于 2004-09-04 13:45:40 得分 2

嘿嘿！Top

8 楼DARKNESSFALL（DARKNESSFALL）回复于 2004-09-04 13:48:54 得分 2

散分要有正当理由的，接分就不需要了吧！：）
接了！Top

9 楼shunzi110（顺子）回复于 2004-09-04 13:52:38 得分 2

同上﹗﹗Top

10 楼kenvinqu（kely）回复于 2004-09-04 13:52:44 得分 2

接分。。。

给点啊，

我现在只有这么少一点，都不敢提问了。。。

提问怎么扣分？？Top

11 楼sunboby（其实我爱你）回复于 2004-09-04 13:56:18 得分 0

那就给大家发点东西吧
我想斑竹不会扣我分了吧
上传图片到数据库

　uppic.asp上传程序名
　　
　　<%
　　dim rs
　　dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
　　formsize=request.totalbytes '取得客户端发过来的大小
　　formdata=request.binaryread(formsize)'把客户发过来的数据转成二进制作
　　bncrlf=chrB(13) & chrB(10)
　　divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
　　datastart=instrb(formdata,bncrlf & bncrlf)+4
　　dataend=instrb(datastart+1,formdata,divider)-datastart
　　mydata=midb(formdata,datastart,dataend)'上面总共是取得图片的二进制数据
'www.csdn.com.cn
　　%>
　　
　　<%
　　sql="select * from pic order by id desc"
　　Set rs = Server.CreateObject("ADODB.Recordset")
　　rs.Open sql,conn,3,2
　　rs.addnew
　　rs("big").appendchunk mydata '增加到数据库中
　　rs.update
　　set rs=nothing
　　set conn=nothing
　　%>
　　接下来是显示图片
　　
　　display.asp
　　
　　 '这个大家都知道吧，他就是与数据库连的一个程序了
　　　　<%
　　id=request("id")
　　set rs=server.createobject("ADODB.recordset")
　　sql="select * from pic where id=" & id
　　rs.open sql,conn,1,1
　　Response.ContentType = "text/html" '显示图片的格式也可以用
　　
　　'Response.ContentType = "image/gif" 以gif显示
　　
　　'Response.ContentType = "image/jpg" 以jpg显示
　　Response.BinaryWrite rs("big") '显示图片
　　rs.close
　　set rs=nothing
　　set connGraph=nothing
　　
　　%>Top

12 楼sunboby（其实我爱你）回复于 2004-09-04 13:57:18 得分 0

还有

<%
set obj=server.CreateObject("wsChart.cChart")
response.write obj.CopyRight
obj.destroy
set obj=nothing
%>

下载DLL到本地
运用 regsvr32 dll路径注册
如果你的机器上上装载有本组件的低版本，请先御载，然后注册最新版本。

生成饼图：
<%
set obj=server.CreateObject("wsChart.cChart")
obj.Width =500
obj.Height = 350
'obj.BorderColor = RGB(0, 255, 100)
obj.BackGrid = true
obj.Borderoffset = 5
'obj.BackgroundColor = RGB(201, 238, 248)
obj.LegendBackgroundColor=RGB(255, 255, 255)
obj.LegendTxtColor= RGB(0, 255, 100)
obj.Title = "家电产品销售统计分析图表"
obj.TitleFont ="宋体"
obj.TitleHeight = 20
obj.TitleColor = RGB(0, 0, 0)
obj.TitleBond = True
obj.Quality = 75
obj.LegendWidth = 100
obj.LegendTitleHeight = 30
obj.LegendItemHeight = 20
obj.LegendBackgroundColor = RGB(201, 238, 248)
obj.LegendPos = 1
obj.LegendTitle = "产品"
'obj.LegendTitleBond=false
obj.PercentDigits =0
obj.PieSizeRate=0.9
obj.DrawPieChart
obj.AddPieData "彩电",418,1,false,false,rgb(255,0,0)
obj.AddPieData "冰箱",147,1,false,false,rgb(0,0,255)
obj.AddPieData "空调",133,1,false,false,rgb(0,255,0)
obj.AddPieData "电脑",200,1,false,false,rgb(255,255,0)
obj.AddPieData "数码相机",200,1,false,false,rgb(255,255,100)
obj.makeChart server.mappath("/") & "/wsChart_pie.gif"

strError=obj.errorinfo
if strError<>"" then
response.write obj.errorinfo
end if
obj.Destroy
set obj=nothing
%>

Top

13 楼sunboby（其实我爱你）回复于 2004-09-04 13:58:22 得分 0

使用组件封装数据库操作(二)
前段日子发表的文章，数据库的连接代码可以直接在ASP文件中显示出来。这次又进行了一次封装。

打开vb，新建Activex控件，工程名称为WebDb，类模块名称为GetInfomation

引用”Microsoft Activex Data Object 2.6 Library ”

Private Conn As ADODB.Connection

Private Rs As ADODB.Recordset

‘作用:判断数据库是否正确连结

'自己可以更改连接串

Public Function GetConn()

Conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=yang"

If Err.Number <> 0 Then

GetConn = False

Else

GetConn = True

End If

End Function

‘根据输入的雇员ID,得到雇员的名称

Public Function GetEmployeeName(strEmployeeID As Integer) As String

Dim strSql As String

Set rs = New ADODB.Recordset

strSql = "select LastName+firstname from employees where EmployeeID=" & strEmployeeID

rs.Open strSql, Conn, adOpenStatic, adLockOptimistic

If rs.EOF Then

GetEmployeeName = ""

Else

GetEmployeeName = rs.Fields(0)

End If

rs.Close

End Function

‘返回所有的雇员列表

Public Function GetEmployeeList() As ADODB.Recordset

Dim strSql As String

Set rs = New ADODB.Recordset

strSql = "select EmployeeID,LastName,FirstName,Title,TitleOfCourtesy,BirthDate,HireDate,Address,City from employees"

rs.CursorLocation = adUseClient

rs.Open strSql, Conn, adOpenStatic

Set GetEmployeeList = rs

'rs.Close

End Function

我们进行测试

新建ASP页面，”TestWebDb1.asp”。主要用来测试GetEmployeeList()方法

<HEAD>

<!- 测试页 ->

<!- 功能：测试组件 ->

<!- 作者：龙卷风.NET ->

<%

Dim strTopic

Dim strTitle

Dim strContents

Dim DataQuery

Dim Rs

Dim Myself

Myself=Request.ServerVariables("script_name")

Set DataQuery=Server.CreateObject("WebDb.GetInfomation")

Set Rs=Server.CreateObject("adodb.recordset")

%>

<TITLE>

数据组件测试页

</TITLE>

<H1><CENTER>欢迎使用数据组件(www.ourfly.com)</CENTER></H1>

<%

Dim Flag

Flag=DataQuery.GetConn()

If Flag=false then

ResPonse.Write "数据库没有连结,请检查"

ResPonse.End

End if

Set Rs=DataQuery.GetEmployeeList()

if rs.eof then

Response.write "没有数据,请查询"

Response.end

end if

Rs.PageSize =3

Page= CLng(Request.QueryString ("Page"))

If Page < 1 Then Page = 1

If Page > Rs.PageCount Then Page = Rs.PageCount

Response.Write "<CENTER><TABLE BORDER=1 cellspacing=0 cellpadding=2>"

Response.Write "<tr BGCOLOR=silver align=center>"

Response.Write "<td>EmployeeID</TD>"

Response.Write "<td>LastName</td>"

Response.Write "<td>FirstName</td>"

Response.Write "<td>Title</a></td>"

Response.Write "<td>TitleOfCourtesy</a></td>"

Response.Write "<td>BirthDate</td>"

Response.Write "<td>HireDate</td>"

Response.Write "<td>Address</td>"

Response.Write "<td>City</td>"

Response.Write "</tr>"

Rs.AbsolutePage = Page

For iPage = 1 To Rs.PageSize

Response.Write "<TR align=right>"

for i=0 to Rs.fields.count-1

Response.Write "<td>"&Rs.fields.item(i)&"</td>"

next

Response.Write "</TR>"

Rs.MoveNext

If Rs.EOF Then Exit For

next

Response.Write "</TABLE></CENTER>"

%>

<Form name="myform" method="get">

<%If Page <> 1 Then%>

<A HREF="<%=Myself%>?Page=1">第一页</A>

<A HREF="<%=Myself%>?Page=<%=(Page-1)%>">上一页</A>

<%End If%>

<%If Page <> Rs.PageCount Then%>

<A HREF="<%=Myself%>?Page=<%=(Page+1)%>">下一页</A>

<A HREF="<%=Myself%>?Page=<%=Rs.PageCount%>">最后的一页</A>

<%End If%>

页次:<FONT COLOR="Red"><%=Page%>/<%=Rs.PageCount%></FONT>

</Form>

<%

Rs.close

%>

新建ASP页面，”TestWebDb2.asp”。主要用来测试GetEmployeeName()方法

这个页面相对简单一些

<HEAD>

<!- 测试页 ->

<!- 功能：测试组件 ->

<!- 作者：龙卷风.NET ->

<%

Dim DataQuery

Dim strID

Dim strResult

Set DataQuery=Server.CreateObject("WebDb.GetInfomation")

%>

<TITLE>

数据组件测试页

</TITLE>

<H1><CENTER>欢迎使用数据组件(www.ourfly.com)</CENTER></H1>

<%

If Len(Request.QueryString("ID")) > 0 Then

strID = Request.QueryString("ID")

Dim Flag

Flag=DataQuery.GetConn()

If Flag=false then

ResPonse.Write "数据库没有连结,请检查"

ResPonse.End

End if

strResult=DataQuery.GetEmployeeName(cint(strID))

if strResult="" then

Response.Write "对不起,没有这个编号,请查询"

Response.End

else

ResPonse.Write strResult

end if

End If

%>

<FORM NAME="MyForm">

<INPUT TYPE=TEXTBOX NAME="EmpID" SIZE=40><P>

<INPUT LANGUAGE="VBScript"

TYPE="BUTTON"

VALUE="Search"

ONCLICK="window.location.href = 'TestWebDb2.asp?ID=' _

+ MyForm.EmpID.Value">

</FORM>

</HEAD>

一些想法:数据库连结如果放到组件里，如果要修改数据库连结，则要重新编译组件，可能会由此引发一些问题(但是推荐这种，毕竟数据库名和服务器名不会经常改)

如果数据库连结放到ASP页面，可以通过属性传值到组件中，但是安全性会降低。

真是……

好了，这篇文章结束了,希望对大家有帮助

今后的话题便是如何实现AspToDll这个软件的功能，我们一步一步实现。

Top

14 楼woyingjie（Hobo）回复于 2004-09-04 13:58:47 得分 2

恭喜Top

15 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2004-09-04 14:01:36 得分 2

简单提个问题就是了how to use dtd??
<!DOCTYPE users SYSTEM "spring-beans.dtd">
Top

16 楼feifeizaizhe（falcon）回复于 2004-09-04 14:05:07 得分 2

接分喽Top

17 楼josney（梦凌风）回复于 2004-09-04 14:06:49 得分 2

我要我要我也要哦Top

18 楼lnqnwy（小川）回复于 2004-09-04 14:08:39 得分 2

呵呵！多谢！共同进步！Top

19 楼OnlyVB（边城浪子）回复于 2004-09-04 14:11:15 得分 2

恭喜，恭喜！！！
楼主，提个小问题吧，要不可能被移贴！！！Top

20 楼sunboby（其实我爱你）回复于 2004-09-04 14:20:43 得分 0

谢谢
OnlyVB(边城浪子) (
我最近在学java 大家可以告诉我怎么学比教快吗，
比如说做个什么样的项目之类的Top

21 楼OnlyVB（边城浪子）回复于 2004-09-04 14:22:47 得分 2

羡慕！！！！
我只会vbTop

22 楼5400（5400）回复于 2004-09-04 14:23:41 得分 2

散分要有正当理由的，接分就不需要了吧！：）Top

23 楼sunboby（其实我爱你）回复于 2004-09-04 14:29:06 得分 0

OnlyVB(边城浪子) ( )
其实我也是才学，我也就是vb好点了，上学的时候学过java不过不是很好了Top

24 楼anpoer（这个夏天有点冷）回复于 2004-09-04 15:17:26 得分 2

恭喜下先~接分~Top

25 楼s1ihome（My hometown is a beautiful village）回复于 2004-09-04 15:34:47 得分 2

哎,看好多学生,可惜我在做学生的时候虽然知道csdn却很少上过,那个时候的时间是如何浪费的啊Top

26 楼setcdq9801（蓝鸽@我是你.net）回复于 2004-09-04 15:35:41 得分 1

接分
Top

27 楼setcdq9801（蓝鸽@我是你.net）回复于 2004-09-04 15:35:57 得分 1

接分Top

28 楼setcdq9801（蓝鸽@我是你.net）回复于 2004-09-04 15:36:15 得分 1

再接分Top

29 楼xiaopar（心晴）回复于 2004-09-04 16:03:51 得分 1

恭喜拉，呵呵Top

30 楼zfhdream（郑潇）回复于 2004-09-04 16:49:11 得分 1

学JAVA 先去做播放器
是入门哦
Top

31 楼mackyliu（才子-54caizi.com）回复于 2004-09-04 16:56:32 得分 1

接个分吧。Top

32 楼wuhun（无魂）回复于 2004-09-04 17:05:21 得分 1

接接分,吹吹风.Top

33 楼FEB15（张郎）回复于 2004-09-04 17:15:34 得分 1

接分Top

34 楼billowsoftyeeco（宜可）回复于 2004-09-04 17:34:16 得分 1

路过　恭喜Top

35 楼bighai78（bighai）回复于 2004-09-04 17:57:35 得分 1

路过　恭喜
Top

36 楼dsclub（任搏软）回复于 2004-09-04 18:07:24 得分 1

接分吧！

Top

37 楼klend（苯鸟（2006））回复于 2004-09-04 18:15:25 得分 1

曾一点分，恭喜亚Top

38 楼bladeinside（云淡风清）回复于 2004-09-04 18:20:57 得分 1

我也正在学java。呵呵。Top

39 楼xwfx521（冰河）回复于 2004-09-04 18:27:37 得分 1

接分了！Top

40 楼wenyang2004（Smoke）回复于 2004-09-04 18:30:36 得分 1

接分了！Top

41 楼cdsun（）回复于 2004-09-04 18:56:44 得分 1

恭喜~~~

Top

42 楼woolceo（努力升仙）回复于 2004-09-04 18:58:00 得分 1

接……Top

43 楼alexzhang00（三角猫）回复于 2004-09-04 19:00:05 得分 1

其实早就想接你的分了，一直没机会啊，这次终于被我逮到了Top

44 楼yangjiansu（鲨鱼Bruce）回复于 2004-09-04 19:42:25 得分 1

接分Top

45 楼liujun999999（减肥中...）回复于 2004-09-04 20:31:13 得分 1

接分Top

46 楼jerry365（水煮三国）回复于 2004-09-04 22:01:11 得分 1

接分。。。Top

47 楼chushicheng（Asp2Asp.net）回复于 2004-09-04 23:00:32 得分 1

接分。。。
Top

48 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2004-09-04 23:08:01 得分 1

偶再次接点分…………Top

49 楼hc0007（当你孤单的时候你会想起谁?）回复于 2004-09-05 08:34:42 得分 1

路过，接分 .Top

50 楼cyyxy（羊羊）回复于 2004-09-05 09:03:09 得分 1

接分!Top

51 楼cyl180555（帅龙小云）回复于 2004-09-05 09:37:33 得分 1

接分了^^^Top

52 楼prefereye（往死里尉尉）回复于 2004-09-05 09:58:11 得分 1

支持,结分Top

53 楼Godsoft（天使之翼）回复于 2004-09-05 10:06:18 得分 1

什么时候csdn开始变得这么浮躁了？Top

54 楼txhack（风冷月清）回复于 2004-09-05 10:09:16 得分 1

接分,差几分就四个角了,谢了!Top

55 楼xiao_bai（小白）回复于 2004-09-05 10:32:28 得分 1

恭喜楼主Top

56 楼arbeng2002（志在天云）回复于 2004-09-05 10:55:08 得分 1

恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主恭喜楼主Top

57 楼fanshui（）回复于 2004-09-05 10:57:43 得分 1

接分:-)Top

58 楼subnet（子网掩码）回复于 2004-09-05 11:00:42 得分 1

我接Top

59 楼kenvinqu（kely）回复于 2004-09-05 11:36:28 得分 1

给我加点分，

我没有可用分了。。。。。。。。。

救救我。。。。Top

60 楼jerrycool（Chris）回复于 2004-09-05 11:47:30 得分 1

接呀Top

61 楼fzjw（冰凌尘埃）回复于 2004-09-05 12:12:23 得分 1

既然怕版主删除，为什么不移到非技术区？Top

62 楼callosity2（此刻无情）回复于 2004-09-05 12:56:03 得分 1

我刚到，分少得可怜，请给一点Top

63 楼sni_yang（幽灵龙翼）回复于 2004-09-05 13:16:30 得分 1

恭喜。。接分。。
Top

64 楼mind_1220（大灰狼）回复于 2004-09-05 13:17:32 得分 1

接分。Top

65 楼deepbluekk（早起的鸟）回复于 2004-09-05 14:06:53 得分 1

参与...这CSDN上的分出真的很难才能加上去的.....Top

66 楼mjpclab（有只大猫猫 mjpclab.net）回复于 2004-09-05 14:16:11 得分 1

不接分是对楼主的藐视～Top

67 楼qiozi（【悟】.欢希欢南换）回复于 2004-09-05 14:22:05 得分 1

接分，恭喜Top

68 楼exboy（kuku）回复于 2004-09-05 14:24:21 得分 1

接分.Top

69 楼kwa（思念海）回复于 2004-09-05 17:59:58 得分 1

升级是实力的表现。继续加油~~~~~~Top

70 楼flash0008（虫子）回复于 2004-09-05 19:00:22 得分 1

恭喜楼主，我也要多努力。Top

71 楼freewheeler（karl）回复于 2004-09-05 19:26:09 得分 1

接分Top

72 楼liujun999999（减肥中...）回复于 2004-09-05 20:31:06 得分 1

接分Top

73 楼DebugXP（NULL）回复于 2004-09-05 20:55:52 得分 1

我什么不会都混了几百分
呵呵Top

74 楼chushicheng（Asp2Asp.net）回复于 2004-09-05 20:56:18 得分 1

接分~~~恭喜~~~

Top

75 楼leozhzh（是是是是）回复于 2004-09-05 22:06:06 得分 1

haha
我也来接
不知道能不能接到
Top

76 楼tutu944（克雷圣经）回复于 2004-09-05 23:31:09 得分 1

蹭~ *^_^*Top

77 楼hayes56k（hayes56k）回复于 2004-09-05 23:33:42 得分 1

goTop

78 楼sni_yang（幽灵龙翼）回复于 2004-09-05 23:35:55 得分 1

我要我要我也要哦

Top

79 楼xiaoyuehen（OH, NO~It's Unfair!）回复于 2004-09-06 00:32:30 得分 1

接点分..让我升星吧..呵呵..升星我也散次分..^^Top

80 楼binghgo（WilliamR aym）回复于 2004-09-06 00:43:08 得分 1

呵呵
接分了
Top

81 楼net205（人不可以无耻到这种地步）回复于 2004-09-06 01:12:03 得分 2

不要漏了。接点分Top

82 楼net_boy（小明）回复于 2004-09-06 01:35:42 得分 1

服了你了接一下再接再厉呀Top

83 楼xiaoyuehen（OH, NO~It's Unfair!）回复于 2004-09-06 01:59:03 得分 2

这么多人..希望我多回复得到的分数多一点..吼吼..:DTop