锘??xml version="1.0" encoding="utf-8" standalone="yes"?>久久99精品久久久久久水蜜桃,国产精品国色综合久久,国产一区二区三区久久精品http://www.aygfsteel.com/kent/category/31521.html鎬佸害鍐沖畾楂樺害錛岃矗浠昏儨浜庤兘鍔涳紱鎬濇兂姣旂煡璇嗘洿閲嶈錛屾垚闀挎瘮鎴愬姛鏇撮噸瑕侊紒zh-cnThu, 22 Apr 2010 15:35:58 GMTThu, 22 Apr 2010 15:35:58 GMT60ASP涓殑Class綾?/title><link>http://www.aygfsteel.com/kent/articles/202972.html</link><dc:creator>鍐風(fēng)溂</dc:creator><author>鍐風(fēng)溂</author><pubDate>Mon, 26 May 2008 08:53:00 GMT</pubDate><guid>http://www.aygfsteel.com/kent/articles/202972.html</guid><description><![CDATA[<%<br />Class Rectangle<br />聽(tīng)聽(tīng)聽(tīng)Private intWidth<br />聽(tīng)聽(tīng)聽(tīng)Private intHeight<br /><br />聽(tīng)聽(tīng)聽(tīng)Public Property Let width(iWidth)<br />聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)intWidth =聽(tīng)iWidth<br />聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)'鍙傛暟楠岃瘉鐣?br />聽(tīng)聽(tīng)聽(tīng)End Property<br /><br />聽(tīng)聽(tīng)聽(tīng)Public Property Let height(iHeight)<br />聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)intHeight =聽(tīng)iHeight<br />聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)'鍙傛暟楠岃瘉鐣?br />聽(tīng)聽(tīng)聽(tīng)End Property<br /><br />聽(tīng)聽(tīng)聽(tīng)Private Sub Class_Initialize<br />聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)'綾誨垵濮嬪寲浠ｇ爜<br />聽(tīng)聽(tīng)聽(tīng)End Sub<br /><br />聽(tīng)聽(tīng)聽(tīng)Public Function perimeter()<br />聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)'榪斿洖鐭╁艦鐨勫懆闀?br />聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)getResult = 2*(intHeight + intWidth)<br />聽(tīng)聽(tīng)聽(tīng)End Function<br /><br />聽(tīng)聽(tīng)聽(tīng)Private Sub Class_Terminate<br />聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)'綾婚攢姣佹椂鎵ц鐨勪唬鐮?br />聽(tīng)聽(tīng)聽(tīng)End Sub<br /><br />End Class<br /><br /><br />'璋冪敤綾?br />Dim obj<br />Set objRectangle = new Rectangle<br />objRectangle.width = 10<br />objRectangle.height = 20<br />Response.Write(objRectangle.perimeter())<br />Set聽(tīng)objRectangle = Nothing<br />%> <img src ="http://www.aygfsteel.com/kent/aggbug/202972.html" width = "1" height = "1" /><br><br><div align=right><a style="text-decoration:none;" href="http://www.aygfsteel.com/kent/" target="_blank">鍐風(fēng)溂</a> 2008-05-26 16:53 <a href="http://www.aygfsteel.com/kent/articles/202972.html#Feedback" target="_blank" style="text-decoration:none;">鍙戣〃璇勮</a></div>]]></description></item><item><title>鏍規(guī)嵁鏃ユ湡榪斿洖瀵瑰簲鐨勬槦搴х紪鍙?/title><link>http://www.aygfsteel.com/kent/articles/201962.html</link><dc:creator>鍐風(fēng)溂</dc:creator><author>鍐風(fēng)溂</author><pubDate>Wed, 21 May 2008 09:12:00 GMT</pubDate><guid>http://www.aygfsteel.com/kent/articles/201962.html</guid><description><![CDATA[ <p>鏍規(guī)嵁杈撳叆鐨勬湀浠藉拰鏃ユ湡錛岃繑鍥炲搴旂殑鏄熷駭緙栧彿錛岄檮鏄熷駭瀵圭収琛細(xì)</p> <table cellspacing="0" bordercolordark="#0000ff" cellpadding="4" bordercolorlight="#ffffff" border="1"> <tbody> <tr> <td> <div align="center">緙栧彿</div> </td> <td> <div align="center">璧鋒鏃ユ湡</div> </td> <td> <div align="center">鍚嶇О</div> </td> </tr> <tr> <td>1</td> <td>12.22 - 1.19</td> <td>欖旂警</td> </tr> <tr> <td>2</td> <td>1.20 - 2.18</td> <td>姘寸摱</td> </tr> <tr> <td>3</td> <td>2.19 - 3.20</td> <td>鍙岄奔</td> </tr> <tr> <td>4</td> <td>3.21 - 4.20</td> <td>鐗＄緤</td> </tr> <tr> <td>5</td> <td>4.21 - 5.20</td> <td>閲戠墰</td> </tr> <tr> <td>6</td> <td>5.21 - 6.21</td> <td>鍙屽瓙</td> </tr> <tr> <td>7</td> <td>6.22 - 7.22</td> <td>宸ㄨ煿</td> </tr> <tr> <td>8</td> <td>7.23 - 8.22</td> <td>鐙瓙</td> </tr> <tr> <td>9</td> <td>8.23 - 9.22</td> <td>澶勫コ</td> </tr> <tr> <td>10</td> <td>9.23 - 10.22</td> <td>澶╃Г</td> </tr> <tr> <td>11</td> <td>10.23 - 11.21</td> <td>澶╄潕</td> </tr> <tr> <td>12</td> <td>11.22 - 12.21</td> <td>灝勬墜</td> </tr> </tbody> </table> <br /> <br /> <div style="BORDER-RIGHT: #cccccc 1px solid; PADDING-RIGHT: 5px; BORDER-TOP: #cccccc 1px solid; PADDING-LEFT: 4px; FONT-SIZE: 13px; PADDING-BOTTOM: 4px; BORDER-LEFT: #cccccc 1px solid; WIDTH: 98%; WORD-BREAK: break-all; PADDING-TOP: 4px; BORDER-BOTTOM: #cccccc 1px solid; BACKGROUND-COLOR: #eeeeee"> <img src="http://www.aygfsteel.com/images/OutliningIndicators/None.gif" align="top" /> <span style="COLOR: #008000">'杈撳叆鏃ユ湡榪斿洖鏄熷駭緙栧彿</span> <br /> <img src="http://www.aygfsteel.com/images/OutliningIndicators/None.gif" align="top" /> <span style="COLOR: #000000">Response.write聽(tīng)getConstellation(11,23)</span> <br /> <img src="http://www.aygfsteel.com/images/OutliningIndicators/None.gif" align="top" /> <br /> <img src="http://www.aygfsteel.com/images/OutliningIndicators/None.gif" align="top" /> <br /> <img src="http://www.aygfsteel.com/images/OutliningIndicators/None.gif" align="top" /> <span style="COLOR: #0000ff">Function</span> <span style="COLOR: #000000">getConstellation(iMonth,聽(tīng)iDay)</span> <br /> <img src="http://www.aygfsteel.com/images/OutliningIndicators/None.gif" align="top" />聽(tīng)聽(tīng)聽(tīng)聽(tīng) <span style="COLOR: #0000ff">Dim</span><span style="COLOR: #000000">聽(tīng)sDay,聽(tīng)aDay</span><br /><img src="http://www.aygfsteel.com/images/OutliningIndicators/None.gif" align="top" />聽(tīng)聽(tīng)聽(tīng)聽(tīng) <span style="COLOR: #000000">sDay = "20,19,21,21,21,22,23,23,23,23,22,22"</span><br /><img src="http://www.aygfsteel.com/images/OutliningIndicators/None.gif" align="top" />聽(tīng)聽(tīng)聽(tīng)聽(tīng) <span style="COLOR: #000000">aDay = </span><span style="COLOR: #0000ff">Split</span><span style="COLOR: #000000">(sDay,",")</span><br /><img src="http://www.aygfsteel.com/images/OutliningIndicators/None.gif" align="top" />聽(tīng)聽(tīng)聽(tīng)聽(tīng) <span style="COLOR: #0000ff">If </span><span style="COLOR: #000000">iDay < aDay(iMonth - 1) </span><span style="COLOR: #0000ff">Then</span><br /><img src="http://www.aygfsteel.com/images/OutliningIndicators/None.gif" align="top" />聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng) <span style="COLOR: #000000">getConstellation = iMonth</span><br /><img src="http://www.aygfsteel.com/images/OutliningIndicators/None.gif" align="top" />聽(tīng)聽(tīng)聽(tīng)聽(tīng) <span style="COLOR: #0000ff">Else</span><br /><img src="http://www.aygfsteel.com/images/OutliningIndicators/None.gif" align="top" />聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)getConstellation <span style="COLOR: #000000">= iMonth + 1</span><br /><img src="http://www.aygfsteel.com/images/OutliningIndicators/None.gif" align="top" />聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)聽(tīng)<span style="COLOR: #0000ff">If </span><span style="COLOR: #000000">getConstellation = 13 </span><span style="COLOR: #0000ff">Then </span><span style="COLOR: #000000">getConstellation = 1</span><br /><img src="http://www.aygfsteel.com/images/OutliningIndicators/None.gif" align="top" />聽(tīng)聽(tīng)聽(tīng)聽(tīng) <span style="COLOR: #0000ff">End If</span><br /><img src="http://www.aygfsteel.com/images/OutliningIndicators/None.gif" align="top" />聽(tīng)聽(tīng)聽(tīng)聽(tīng) <span style="COLOR: #0000ff">Erase </span><span style="COLOR: #000000">aDay</span><br /><img src="http://www.aygfsteel.com/images/OutliningIndicators/None.gif" align="top" />聽(tīng)聽(tīng)聽(tīng)聽(tīng) <span style="COLOR: #0000ff">Set aDay = Nothing</span><br /><img src="http://www.aygfsteel.com/images/OutliningIndicators/None.gif" align="top" /><span style="COLOR: #0000ff">End聽(tīng)Function</span></div> <br /> <p> <br />涓句竴鍙嶄笁錛屽鏋滆姹傝繑鍥炵殑鏄槦搴х殑鍚嶇О鑰屼笉鏄紪鍙峰憿錛熻鎬庝箞鍐欙紵璇昏呭彲浠ヨ嚜宸辮瘯涓涓嬨?/p> <img src ="http://www.aygfsteel.com/kent/aggbug/201962.html" width = "1" height = "1" /><br><br><div align=right><a style="text-decoration:none;" href="http://www.aygfsteel.com/kent/" target="_blank">鍐風(fēng)溂</a> 2008-05-21 17:12 <a href="http://www.aygfsteel.com/kent/articles/201962.html#Feedback" target="_blank" style="text-decoration:none;">鍙戣〃璇勮</a></div>]]></description></item><item><title>ASP璋冪敤瀛樺偍榪囩▼http://www.aygfsteel.com/kent/articles/201921.html鍐風(fēng)溂鍐風(fēng)溂Wed, 21 May 2008 07:26:00 GMThttp://www.aygfsteel.com/kent/articles/201921.html
Create聽(tīng)proc聽(tīng)sp_join
聽(tīng)聽(tīng)聽(tīng)聽(tīng)@result聽(tīng)int聽(tīng)output,
聽(tīng)聽(tīng)聽(tīng)聽(tīng)@email聽(tīng)nvarchar(30),
聽(tīng)聽(tīng)聽(tīng)聽(tīng)@username聽(tīng)nvarchar(15)
AS

--聽(tīng)寮濮嬩簨鍔?/span>
Begin聽(tīng)Tran
聽(tīng)聽(tīng)聽(tīng)聽(tīng)INSERT聽(tīng)INTO聽(tīng)users(username,聽(tīng)email)聽(tīng)VALUES(@username,聽(tīng)@email)
聽(tīng)聽(tīng)聽(tīng)聽(tīng)IF聽(tīng)@@ERROR聽(tīng)<>聽(tīng)0聽(tīng)GOTO聽(tīng)back

聽(tīng)聽(tīng)聽(tīng)聽(tīng)INSERT聽(tīng)INTO聽(tīng)register(username)聽(tīng)VALUES(@userName)
聽(tīng)聽(tīng)聽(tīng)聽(tīng)IF聽(tīng)@@ERROR聽(tīng)<>聽(tīng)0聽(tīng)GOTO聽(tīng)back


--聽(tīng)鎻愪氦浜嬪姟
Set聽(tīng)@result聽(tīng)=聽(tīng)1
Commit聽(tīng)Tran
Return


--聽(tīng)鍥炴粴浜嬪姟
back:
聽(tīng)聽(tīng)聽(tīng)聽(tīng)Set聽(tīng)@result聽(tīng)=聽(tīng)0
聽(tīng)聽(tīng)聽(tīng)聽(tīng)RollBack聽(tīng)Tran
聽(tīng)聽(tīng)聽(tīng)聽(tīng)Return


鏁版嵁搴撹繛鎺ヤ唬鐮?br />
Sub聽(tīng)Command(oCmd)
聽(tīng)聽(tīng)聽(tīng)聽(tīng)Set聽(tīng)oCmd聽(tīng)=聽(tīng)Server.CreateObject("ADODB.Command")
End聽(tīng)Sub

Sub聽(tīng)Connection(oConn)
聽(tīng)聽(tīng)聽(tīng)聽(tīng)Set聽(tīng)oConn聽(tīng)=聽(tīng)Server.CreateObject("ADODB.Connection")
聽(tīng)聽(tīng)聽(tīng)聽(tīng)oConn.Open聽(tīng)"Provider=SQLOLEDB;Server=;User聽(tīng)I(yíng)D=;Password=;Database=;"
End聽(tīng)Sub

Sub聽(tīng)Destroy(obj)
聽(tīng)聽(tīng)聽(tīng)聽(tīng)If聽(tīng)isObject(obj)聽(tīng)Then聽(tīng)Set聽(tīng)obj聽(tīng)=聽(tīng)Nothing
End聽(tīng)Sub


ASP璋冪敤浠ｇ爜
Dim聽(tīng)strEmail,聽(tīng)strUserName
Dim聽(tīng)objCmd,聽(tīng)objConn,聽(tīng)intResult

strEmail聽(tīng)=聽(tīng)Request.Form("email")
strUserName聽(tīng)=聽(tīng)Request.Form("username")

'鏈嶅姟鍣ㄧ鏁版嵁楠岃瘉錛堢暐錛?/span>

Command聽(tīng)objCmd
Connection聽(tīng)objConn

With聽(tīng)objCmd
聽(tīng)聽(tīng)聽(tīng)聽(tīng).ActiveConnection聽(tīng)=聽(tīng)objConn
聽(tīng)聽(tīng)聽(tīng)聽(tīng).CommandType聽(tīng)=聽(tīng)4
聽(tīng)聽(tīng)聽(tīng)聽(tīng).CommandText聽(tīng)=聽(tīng)"sp_join"
聽(tīng)聽(tīng)聽(tīng)聽(tīng).Parameters.Refresh
聽(tīng)聽(tīng)聽(tīng)聽(tīng).Parameters("@email")聽(tīng)=聽(tīng)strEmail
聽(tīng)聽(tīng)聽(tīng)聽(tīng).Parameters("@username")聽(tīng)=聽(tīng)strUserName
聽(tīng)聽(tīng)聽(tīng)聽(tīng).Execute
End聽(tīng)With
intResult聽(tīng)=聽(tīng)objCmd.parameters("@result")

Destroy聽(tīng)objCmd
Destroy聽(tīng)objConn

If聽(tīng)intResult聽(tīng)=聽(tīng)0聽(tīng)Then
聽(tīng)聽(tīng)聽(tīng)聽(tīng)Response.Write("娉ㄥ唽澶辮觸")
Else
聽(tīng)聽(tīng)聽(tīng)聽(tīng)Response.Write("娉ㄥ唽鎴愬姛")
End聽(tīng)If

榪欐槸涓涓畝鍗曠殑渚嬪瓙錛屽笇鏈涜兘璧峰埌鎶涚爾寮曠帀鐨勪綔鐢ㄣ?/p>

鍐風(fēng)溂 2008-05-21 15:26 鍙戣〃璇勮
]]> 主站蜘蛛池模板： 定兴县| 富宁县| 安仁县| 黑水县| 新乡县| 公主岭市| 马边| 哈尔滨市| 安新县| 温泉县| 灵丘县| 林甸县| 法库县| 永安市| 新化县| 合肥市| 鄂温| 板桥市| 定安县| 南昌县| 建德市| 涿州市| 额敏县| 修水县| 巩留县| 枣庄市| 拉萨市| 罗平县| 乳山市| 隆化县| 漳平市| 庄浪县| 金华市| 巴青县| 阿克苏市| 双鸭山市| 兴山县| 名山县| 东丽区| 天气| 红桥区|