仓酷云

标题: ASP网页设计一个显现Grid的VBScript工具 [打印本页]

作者: 谁可相欹 时间: 2015-1-16 22:56
标题: ASP网页设计一个显现Grid的VBScript工具
当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题vbscript|工具|显现是依据MS供应的代码修正而成，今朝还不撑持编纂，能够排序、查询、分页显现
<%@Language=VBScript%>
<%OptionExplicit%>
<%
ClassclassDataGrid

Privatem_strSQL
Privatem_strConn
Privatem_strRowColor1
Privatem_strRowColor2
Privatem_strMode
Privatem_strProcessPage

Privatem_strTitle
Privatem_strRSName
Privatem_strFindFields

PublicPropertyGetSQL()
SQL=m_strSQL
EndProperty

PublicPropertyLetSQL(strSQL)
m_strSQL=strSQL
EndProperty

PublicPropertyGetConn()
Conn=m_strConn
EndProperty

PublicPropertyLetConn(strConn)
m_strConn=strConn
EndProperty

PublicPropertyGetRowColor1()
IfIsNull(m_strRowColor1)OrLen(m_strRowColor1)=0Then
RowColor1="#ffffff"
Else
RowColor1=m_strRowColor1
EndIf
EndProperty

PublicPropertyLetRowColor1(strRowColor1)
m_strRowColor1=strRowColor1
EndProperty

PublicPropertyGetRowColor2()
IfIsNull(m_strRowColor2)OrLen(m_strRowColor2)=0Then
RowColor2="#00ffff"
Else
RowColor2=m_strRowColor2
EndIf
EndProperty

PublicPropertyLetRowColor2(strRowColor2)
m_strRowColor2=strRowColor2
EndProperty

PublicPropertyGetMode()
IfIsNull(m_strMode)OrLen(m_strMode)=0Then
Mode="View"
Else
Mode=m_strMode
EndIf
EndProperty

PublicPropertyLetMode(strMode)
IfstrMode"View"AndstrMode"Edit"Then
Response.Write("形式毛病――只同意利用View和Edit<br>")
Response.End
Else
m_strMode=strMode
EndIf
EndProperty

PublicPropertyGetProcessPage()
ProcessPage=m_strProcessPage
EndProperty

PublicPropertyLetProcessPage(strProcessPage)
m_strProcessPage=strProcessPage
EndProperty

PublicPropertyGetTitle()
IfIsNull(m_strTitle)OrLen(m_strTitle)=0Then
Title="DataGrid"
Else
Title=m_strTitle
EndIf
EndProperty

PublicPropertyLetTitle(strTitle)
m_strTitle=strTitle
EndProperty

PublicPropertyGetRSName()
IfIsNull(m_strRSName)OrLen(m_strRSName)=0Then
RSName="Grid"
Else
RSName=m_strRSName
EndIf
EndProperty

PublicPropertyLetRSName(strRSName)
m_strRSName=strRSName
EndProperty

PublicPropertyGetFindFields()
FindFields=m_strFindFields
EndProperty

PublicPropertyLetFindFields(strFindFields)
m_strFindFields=strFindFields
EndProperty

SubShowDataGrid()

DimintPageNum
DimobjConn
DimobjRS
DimintAbs
DimintCurrentPage
DimintFindCol
DimintPageSize
DimintRow
DimintCol
Dimi
DimintPos
DimintDisplayRows
DimstrSort
DimstrSortDir
DimstrLastSort
DimstrLastSortDir
DimstrColor
DimstrFind
DimboolFind
DimboolFound
</p>asp，你就只能等着微软给你解决，它不乐意你就只好悲催。而且asp跑在windows服务器上，windows服务器跟linux比起来简直弱爆了！

作者: 蒙在股里 时间: 2015-1-20 06:15
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

作者: 飘飘悠悠 时间: 2015-1-21 13:50
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

作者: 再见西城 时间: 2015-1-26 20:02
封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

作者: 分手快乐 时间: 2015-2-4 20:19
代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

作者: 莫相离 时间: 2015-2-10 06:27
Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

作者: 小魔女 时间: 2015-3-10 10:07
学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

作者: 若天明 时间: 2015-3-17 06:11
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

作者: 只想知道 时间: 2015-3-23 22:58
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

欢迎光临仓酷云 (http://ckuyun.com/)