例如除以365之類的不太準(zhǔn)確，有時(shí)候還有366天DateDiff 函數(shù)可返回兩個(gè)日期之間的時(shí)間間隔數(shù)DateDiff 函數(shù)用于計(jì)算兩日期時(shí)間的差值，計(jì)算方法是 EndDay StartDay若比較年份，則不管月份以下的數(shù)值，若比較月份，則；這段代碼就是 輸出 instring = quotthe 7 dwarvesquot中 第一次出現(xiàn)數(shù)字的位置是5 midinstring，i，1是從字符串instring的第i個(gè)位置開始搜索，取出1個(gè)長度的字符復(fù)制給c，即c=midinstring，i，1，然后當(dāng)c是數(shù)字的時(shí)候。

lt #39調(diào)用B值 if requestquotactionquot=quotaddquot then b=requestformquotbquot#39運(yùn)算，其中取出數(shù)據(jù)表里A和C的值，然后和表單里的B值進(jìn)行運(yùn)算 d=rsquotAquot + B * rsquotCquot#39輸出運(yùn)算的結(jié)果 responsewrite d end if；把下面的代碼粘貼到文本文檔另存為 myhtml 雙擊打開 myhtml，就OK了輸入四則運(yùn)算式子，點(diǎn)運(yùn)算就可以得到結(jié)果了， 例如3*5 + 93 多復(fù)雜都無所謂，例如 3*5 + 93*10050+2330 50。

數(shù)據(jù)庫連接代碼自己寫，并通過conn調(diào)用open打開，其后代碼如下lt Dim Rs， Sql Sql = quotSELECT A1+A2+A3+A4 As Zh FROM LISTquotSet Rs = ServerCreateObjectquotADODBRecordSetquotRsOpen Sql， Conn， 1， 1 Do Until Rs；ASP簡單計(jì)算器源碼分類lt%@LANGUAGE=quotVBSCRIPTquot CODEPAGE=quot936quot% Calculate Function ShowmIf = quotquot AND InStrquot + * quot，m Then = quotquotElseIf。

SQL查詢代碼不容易寫啊，如果是先把TXT字段的查出來之后，再用JavaScript處理的話，倒是挺簡單的，以下是程序lt%@language=quotJavaScriptquot% lt cnStr = quotProvider=Data Source=quot + Server。

asp計(jì)算器代碼

1、第二個(gè)沒有理解你什么意思是不是這樣一個(gè)月前l(fā)t%=dateaddquotmquot，1，date% 一年前l(fā)t%=dateaddquotyyyyquot，1，date% 23天前l(fā)t%=dateaddquotdquot，23，date% 8小時(shí)前l(fā)t%=dateaddquothquot，23，now%。

2、直接for循環(huán)從1100開始遞增，設(shè)定求和變量sum最后打印這個(gè)變量 lt%sum = 0for i = 1 to 100sum = sum + inextresponsewritequot1100求和quotsum% 結(jié)果。

3、我想問下問題你這個(gè)表格是個(gè)在瀏覽器顯示的表，還是一個(gè)即是顯示又是添加或更改數(shù)據(jù)的表如果只是顯示的話，你只要使用set rs=connexecutequotselect suma1as suma1，suma2as suma2，suma3as suma3，suma4as。

asp代碼生成器

小小asp計(jì)算器 lt #39 #39janchie 原創(chuàng) 2007315 dim str，num1，numtag，num2，action num1=requestformquotnum1quotnumtag=requestformquotnumtagquotnum2=requestformquotnum2quotaction=requestquerystring quotacti。

思路1找出數(shù)據(jù)庫中的最大ID 2從1開始循環(huán)到那個(gè)最大ID 3用循環(huán)值到數(shù)據(jù)庫中查詢，沒找到就表示這個(gè)ID被刪除，記錄下來 4輸出結(jié)果 程序lt 數(shù)據(jù)庫連接略 Dim tempStr Dim maxIDmaxID=connexecutequot。

m Month 月 d Day 日 w Weekday 星期 h Hour 時(shí) n Minute 分 s Second 秒 D1 ，D2計(jì)算期間的兩個(gè)日期表達(dá)式，若 date1 較早，則兩個(gè)日期之間的期間結(jié)果為正值若 date2 較早， 則結(jié)果為負(fù)值FW。

這個(gè)JS就可以實(shí)現(xiàn)的，ASP的話自己根據(jù)下面的JS原理寫吧lt！function gw_js_wagevar yjfw=new Array 業(yè)績范圍yjfw0=Numberquotyjfw1quotvalueyjfw1=Numberwindow。

如果是access數(shù)據(jù)庫 應(yīng)該這么寫update db1 set heji=select sumkucun from db2 where db2name=db1name group by db2name如果使用sum求和函數(shù)，必須用group by分組統(tǒng)計(jì)。

ASP網(wǎng)頁程序設(shè)計(jì)中10個(gè)非常有用的實(shí)例代碼 ASP可以與Web數(shù)據(jù)庫以及其它程序進(jìn)行交互，是一種簡單方便的編程工具下面由我?guī)鞟SP網(wǎng)頁程序設(shè)計(jì)中10個(gè)非常有用的實(shí)例代碼1如何用Asp判斷你的網(wǎng)站的虛擬物理路徑 答使用。

你的程序遺漏了初始化count的語句，修改正確的代碼如下lt dim a6for i=0 to 6 ai=i+1 next count=0 for i=0 to 6 count=count+ai+1 next responsewrite count 輸出結(jié)果為35，因?yàn)榈谝淮窝h(huán)。

dim conn，rs，sql Set conn = ServerCreateObjectquotADODBConnectionquotconnstr=quot引號內(nèi)的連接字符串，不知道你是什么數(shù)據(jù)庫，自己改成對應(yīng)的就行了quotconnOpen connstr Set rs=ServerCreateObjectquotAdodbRecordSetquotsql。