探索软件工作室长期专业承接中小型商业软件或网站，最优惠的价格和高质量的服务期待您的惠顾！
本工作室承接 JSP ASP VB PB LotusNotes 等语言要求的应用系统开发业务
java jsp实战源程序代码:
1.办公自动化管理(OA)系统 (web版 全套源码 安装即用) + (设计文档资料)
2.企业产供销管理(ERP)系统 (web版 全套源码 安装即用) + (设计文档资料)
3.网上(在线)书店管理系统 (web版 全套源码 安装即用) + (设计文档资料)
4.学生成绩管理系统 (web版 全套源码 安装即用) + (设计文档资料)
5.新闻发布管理系统 (web版 全套源码 安装即用) + (设 ......
探索软件工作室长期专业承接中小型商业软件或网站，最优惠的价格和高质量的服务期待您的惠顾！
本工作室承接 JSP ASP VB PB LotusNotes 等语言要求的应用系统开发业务
java jsp实战源程序代码:
1.办公自动化管理(OA)系统 (web版 全套源码 安装即用) + (设计文档资料)
2.企业产供销管理(ERP)系统 (web版 全套源码 安装即用) + (设计文档资料)
3.网上(在线)书店管理系统 (web版 全套源码 安装即用) + (设计文档资料)
4.学生成绩管理系统 (web版 全套源码 安装即用) + (设计文档资料)
5.新闻发布管理系统 (web版 全套源码 安装即用) + (设 ......
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_conn_STRING
rs1.Source = "SELECT * from dbo.LabIntroduce ORDER BY ID DESC"
rs1.CursorType = 0
rs1.CursorLocation = 2
rs1.LockType = 1
rs1.Open()
rs1_numRows = 0
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject") '用到fso
sFileName = ".doc"
Set MyFile = fso.CreateTextFile(Server.MapPath(""&rs1("AdminName")&"") &sFileName, True) '文件放在当前目录的word/下
myString=""&rs1("AdminText")&""
MyFile.WriteLine(myString)
MyFile.Close
rs1.Close()
Set rs1 = Nothing ......
<%
'//////////// GPS：Get Picture Size //////////////
'//////////////利用ADODB.stream获取图片尺寸//////////////
Class GPS
Dim aso
Private Sub Class_Initialize
Set aso=CreateObject("Adodb.Stream")
aso.Mode=3
aso.Type=1
aso.Open
End Sub
Private Sub Class_Terminate
set aso=nothing
End Sub
Private Function Bin2Str(Bin)
Dim I, Str
For I=1 to LenB(Bin)
clow=MidB(Bin,I,1)
if AscB(clow)<128 then
Str = Str & Chr(ASCB(clow))
Else
I=I+1
if I <= LenB(Bin) then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow))
end If
Next
Bin2Str = Str
End Function
Private Function Num2Str(num,base,lens)
'GPS (2005-8-11)
dim ret
ret = ""
while(num>=base)
ret = (num mod base) & ret
num = (num - num mod base)/base
wend
Num2Str = right(string(lens,"0") & num & ret,lens)
End Function
Private Function Str2Num(str,base)
'GPS (2005-8-11)
dim ret
ret = 0
for i=1 to len(str)
ret = ret *base + cint(mid(str,i,1))
next
Str2Num=ret
End Function
Privat ......
对于学习ASP.NET的人，留言板再熟悉不过了。但是仅仅是文字留言功能，你是否觉得厌烦了呢?你是否渴望像QQ聊天那样，时不时地加上个表情来张扬个性？那么下面要说的就是如何实现。
一般说来，使用TextBox文本框来接收留言信息，但是TextBox只能写入文本，不能够加入图片，这可怎么办？那好，这个问题先放一放，说点其他的。如果你是个细心的人，并且经常浏览优酷网，那么你是否还记得优酷网留言时的效果呢？
请看下面的图并且注意：我点击了第一个图片“赞”，留言板中却是“[Yo17]”。很显然，它是用[Yo17]代表图片“赞”，有了这个例子，思路也就清晰了，Yo17是图片的名字，"[" 和"]"起到标示图片的作用。输出时，前一个"["用"<img src='Image/"代替，后一个"]"用".gif'>"代替，即：<img src='Image/Yo17.gif'/>。这样，使用Response.Write()输出时，就变成了图片了。
好了，现在开始代码的编写工作。首先，搜集一些表情图片，用QQ表情就行，在软件安装目录Program Files\Tencent\QQ\Face2 下，拷贝出来就行了。
在网站上新建一个Image文件夹用来存放图片。拖放一个TextBox，� ......
Asp.Net中几种相似的标记符号: < %=...%>< %#... %>< % %>< %@ %>解释及用法
答: < %#... %>: 是在绑定控件DataBind()方法执行时被执行，用于数据绑定
如: < %# Container.DataItem("tit") %>
< %= %>: 在程序执行时被调用，可以显示后台变量值
如:
*.aspx中： < %= aaa %>
*.cs中: protected string aaa="姓名";
< % %>: 内联代码块里面可以在页面文件*.aspx或*.ascx文件里面嵌入后台代码
如:
< %
for(int i=0;i<100;i++)
{
Reaponse.Write(i.ToString());
}
%>
< %@ %>是在*.aspx页面前台代码导入命名空间,
如:
< %@ Import namespace="System.Data"%>
2.控件接收哪些类型数据?
答:接收Bind的控件，一般有DropDownList,DataList,DataGrid,ListBox这些集合性质的控件，而被捆绑
的主要是ArrayList(数组),Hashtable(哈稀表),DataView(数据视图),DataReader这四个，以后我们就可以
对号入座，不会出现DataTable被捆绑的错误了：）
3.DataBind,获得的数据，系统会将其默认为String,怎样转化为其它的类型?
DataBinder.Eval(Container.D ......
一、如何：使用 ASP.NET 语法将服务器控件添加到 ASP.NET 网页
可以通过在 .aspx 文件中直接声明 Web 服务器控件将它添加到页中。
以声明方式添加控件
A、如果您位于可视化设计器中，请切换到源编辑视图。
B、将表示该控件的元素键入 .aspx 文件。您使用的具体语法取决于要添加的控件，但通常适用下面的情况：
·控件必须包含 runat="server" 属性。
·设置了控件的 ID 属性，除非该控件是某个复杂控件的一部分且重复出现（如在 GridView、FormView、DetailsView、Repeater 或 DataList 控件中一样）。
·Web 服务器控件是使用引用 asp 命名空间的 XML 标记声明的。
·控件声明必须正确结束。您可以指定显式结束标记，或者如果控件不具有子元素，也可以指定一个自结束标记。唯一的例外是不可以包含子元素的 HTML 输入控件，如输入控件（例如，HtmlInputText 服务器控件声明语法、HtmlImage 服务器控件声明性语法和 HtmlButton 服务器控件声明性语法）。
·控件属性声明为属性。
下面的示例显示 Web 服务器控件的典型声明：
<!-- Textbox Web server control -->
<asp:textbox id ......
最新文章 :