📄 temp1.html
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<BODY>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="Table2">
<tr class=th1>
<td align="center" width=5%>序</td>
<td align="center" width=25%>项目</td>
<td align="center" width=15%>金额</td>
<td align="center" width=12%>支付时间</td>
<td align="center" width=*>备注</td>
<td align="center" width=12%>保存/编辑</td>
</tr>
<%
count=1
if tableid<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
Query = "select * from report where table_id=" & tableid
rs.Open Query,conn,1,3
msgcount=rs.RecordCount
Do While Not rs.EOF
if cint(request("detailid"))<>rs("id") then
response.Write "<tr>"
response.Write "<td align=center>" & count & "</td>"
response.Write "<td>" & rs("project") & "</td>"
response.Write "<td align=center>" & rs("appsum") & " </td>"
response.Write "<td align=center>" & rs("payment_datetime") & " </td>"
response.Write "<td align=center><a href=""javascript:alert('" & rs("remark") &"');"">点击浏览</a></td>"
response.Write "<td align=center><a href=""?act=modify&id=" & tableid & "&detailid=" & rs("id") & """>修改行数据</a></td>"
response.Write "</tr>"
else
if tableid<>"" then
sql="select * from table_report where id=" & cint(tableid)
set rstmp=conn.execute(sql)
charge_personal = rstmp("charge_personal")
report_personal = rstmp("report_personal")
rstmp.Close
set rstmp=nothing
end if
response.Write "<tr><input type=hidden name=id value="&request("id")&"><input type=hidden name=did value="&request("detailid")&">"
response.Write "<td align=center>" & count & "</td>"
response.Write "<td><input type=text name=project value=""" & rs("project") & """ size=20></td>"
response.Write "<td align=center><input type=text name=appsum value=""" & rs("appsum") & """ size=10></td>"
response.Write "<td align=center><input type=text name=payment_datetime value=""" & rs("payment_datetime") & """ size=10 onClick=""fPopUpDlg('inc/calendar.htm', document.report.payment_datetime, 'winpop', 172, 210);return false""></td>"
response.Write "<td align=center><a href=""javascript:alert('" & rs("remark") &"');"">点击浏览</a></td>"
response.Write "<td align=center><input type=submit name=cmdSaveModify value=保存修改 onclick=""return CheckModify();""></td>"
response.Write "</tr>"
end if
count=count+1
rs.MoveNext
loop
end if
if request("detailid")="" then
if count<=10 then
response.Write "<tr>"
response.Write "<td align=""center"">"&count&"<input type=""hidden"" name=serial value="""&count&""" ID=""Hidden1""></td>"
response.Write "<td><input type=""text"" name=""project"" size=""20"" class=input3 value=" & i_project & "></td>"
response.Write "<td><input type=""text"" name=""appsum"" size=""10"" class=input3 value=" & i_appsum & "></td>"
response.Write "<td><input class=input3 type=""text"" name=""payment_datetime"" size=""10"" readonly value="""&formatdatetime(now(),2)&""" onClick=""fPopUpDlg('inc/calendar.htm', document.report.payment_datetime, 'winpop', 172, 210);return false""></td>"
response.Write "<td><input class=input3 type=""text"" name=""remark"" size=""20"" ></td>"
response.Write "<td align=""center""><input type=""submit"" value=""保存数据"" style=""color:0000ff;"" name=""cmdSave"" onclick=""return CheckOK();""></td>"
response.Write "</tr>"
end if
else
response.Write "<tr><td colspan=6 align=center height=20 class=th1>请保存后再新增数据</td></tr>"
end if
ecount = count +1
for i=ecount to 10%>
<tr>
<td align="center"><%=i%></td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%next%>
<tr>
<td align="center"> </td>
<td>自动计算合计</td>
<td align=center>
<%
if tableid="" then
response.Write "0.00"
else
sql = "select sum(appsum) from report where table_id="&tableid
set rs=conn.execute(sql)
response.Write rs(0)
rs.Close
set rs=nothing
end if
%>万元
</td>
<td>--</td>
<td> </td>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -