”
text=text+’<formmemod=”POST“action=”http://192.168.
&&生成html文件Scores.htm
handle=fcreate("&file_html.’,o)
ifhandle=-Icancelendif
42.254/upload_sco.asp”>知r
text=text+7<!一webbot
bot=”SaveResults”
U-File=”fb—
web:///_private/form_results.CSV”
text--text+7<br><table
S-Format=”TEXT,
CSV”S—Label-Fields=”TRUE”—->沁r
border=”1”cellpadding=”5”
result=fputs(handle,text)..
IFresult=0waitwindow"Failurewriting
cellspacing=”0”id=”tabl_data”>沁rtext=text+’<capfion><b><fontsize=”4”xbr>成绩表<,
fono</b></caption>"+or
text=text+"<tr>7+Cr:
Scores.htm’
=MESSAGEBox(’生成Html失败!’,’提示,)
RETURN
else
+铷考号<,th>-Kr:
+7<th>得分?:,th>’?a:
+。d缸>。+ct
=fclose(handle)
thisform.1abel_info.Caption='=”成功生成Html,"+CHR(13)
Usedataclient.dbfin2share
+’开始加载…一…
thisform.oWebBrowser.Navigate("&file_html.,)&&将生成的html文件放入浏览器控件
ENDIF
SELE(玎2
COPYT0arrayUSEdata_fiel&fiel_kh..&fiel_fs.
ⅢTYPECdata_(1,1)”)#”C”2)”)#”N”
.or.Tn,E(”data_(1,
THISFORM.oWebBrowser.Enabled=.f.
DECLAREnTimeout
D0
INTEGER
Sleep
IN
WIN32API
DrIEGER
=MESSAGEBOX(”考号是字符型,成绩是数值型fI-+CHR(13)+”请重新选择字段!!”,”提示!”)
RETURN
&&延时等待
WHILEthisform.OWebBrowser.ReadyState襻4
Sleep(1000)ENDDO
CLEAR
D奶Ⅲ
thisform.1abel_info.Caption=“正在生成Html!!“
+COPYTOarraydata_fielkh,kgf
DLIS
FOREACHloTagIN
THISFORM.oWebBrowser.Document.
*fori_l
to
4text--text+'<tr>锄
forj=lto
ALEN(data_,1)
A11
IF
UPPER(10Tag.Tagname)=”Tm.E”
宰?loTag.InnerHTMLIFUPPERfloTag.InnerHTML)c>”CHECKCARD”
num00=-ALEN(data,1)num—tot=ALLTRIM(STR(num00,5,o))ALEN(dam_,1)
&&是否正确打开网页=MEssAGEBox(7无法打开网页1
RETURNELSEEXITENDIF
n_=ALLTRLM(STR0))id’l=”fowl一”+n-id_2=”row2_”+IL
7。7提示,)
vaI_tl=ALLTRIM(data_(j,1))
nam_tl=”tl一”+n-
nam_t2_=”t2一”+n-
END砸
NEXT
vaI_t2=ALLTRIM(STR(data_(j。2),5,1))nam_t2=”t2_”+ALLTRIM(data0,1))
>’+’</td>’+
text=text+’<trxtd
readonly
Cr
id=&id
1.><inputtype=”text”
thisform.1abel_info.Caption=”加载完成!!,’WAITwindow””time,out5thisform.1abel—info.Caption=”THISFoRM.oWebBrowser.Enabled=.t.cMessageTitle=7提示7
value--&val_t1.name=”&nam_t1.”
text=text+"<td
id=&id一2.><inputtype=”text”
val—