📄 index.asp
字号:
</head>
<body style = 'margin:0px;border-style:none;' scroll = 'no'>
<div style = 'text-align:center;'>
<table border = '0' cellspacing = '0' cellpadding = '2' borderColorLight='#848284' borderColorDark='#eeeeee' style = 'width:100%;height:auto; border-left: 1px solid buttonhighlight; border-right: 1px solid buttonshadow;color: #FF9900;border-top: 0px solid buttonhighlight; border-bottom: 1px solid buttonshadow;padding: 1px ;'/>
<tr>
<!--#include file="../topleft.asp"-->
<td style = 'width:auto;'> </td>
<td style = 'width:10px;'></td>
<td style = 'width:35px; height:auto;' valign='bottom'><div class = 'bar' style = 'width:35px; height:33px;'><a href = "javascript:javascript:SDD('Add.asp','mAdd',738,480,'Y');" /><img src="../images/add00.gif" width="35" height="33" border="0" alt="增加"></div></td>
<td style = 'width:10px;'></td>
<td style = 'width:35px; height:auto;' valign='bottom'><div class = 'bar' style = 'width:35px; height:33px;'><a href = "javascript:che('m');" /><img src="../images/update00.gif" width="35" height="33" border="0" alt="修改"></div></td>
<td style = 'width:10px;'></td>
<td style = 'width:35px; height:auto;' valign='bottom'><div class = 'bar' style = 'width:35px; height:33px;'><a href = "javascript:form.Options.value = 'delTrue';form.submit();" onclick = "javascript:return che('del');" /><img src="../images/del00.gif" width="35" height="33" border="0" alt="删除"></div></td>
<td style = 'width:10px;'></td>
<td style = 'width:35px; height:auto;' valign='bottom'><div class = 'bar' style = 'width:35px; height:33px;'><a href = "javascript:che('reload');" /><img src="../images/reload00.gif" width="35" height="33" border="0" alt="刷新"></div></td>
<td style = 'width:10px;'></td>
<td style = 'width:35px; height:auto;' valign='bottom'><div class = 'bar' style = 'width:35px; height:33px;'><a href = "javascript:SDD('<%=HOME_PATH%>Logout.asp','Logout',400,150,'');" /><img src="../images/exit00.gif" width="35" height="33" border="0" alt="退出"></div></td>
<td style = 'width:10px;'></td>
</tr>
</table>
<%
Call DateSearch(DateStar,DateEnd,DateSQL,"ALL",Dateinfo)
Rselsupplierid = GetText("selsupplierid","G","number",1,10,0)
key_ = trim(Request("key"))
keySQL = ""
BadStr = " ~`!@#$%^&*()-_+=|\{}[]［］:;" & chr(34) & chr(39) & "<,>.?/"
viewBadStr = ""
key__ = Check(BadStr,key_,viewBadStr,"0")
keyColor = v1v2(key_,"",""," style = 'color:red;' ")
if not key_ = "" then keySQL = " and supplierid in(select uid from supplier where FullName like '%" & key__ & "%') or supplierName like '%" & key__ & "%' "
if not Rselsupplierid = 0 then
selsupplieridSQL = " and supplierid = " & Rselsupplierid & ""
supplierName = SelectZD("select FullName from supplier where uid = " & Rselsupplierid & "","")
else
selsupplieridSQL = ""
supplierName = ""
end if
%>
<div style = 'width:100%;text-align:left; border-left: 1px solid buttonhighlight; border-right: 1px solid buttonshadow;border-top: 1px solid buttonhighlight; border-bottom: 1px solid buttonshadow;padding:1px;padding-left:3px;'>
<form method='post' action="<%=SELVAR("FN","?")%>" name = 'formSearch'>
<input type = 'hidden' name = 'Searched' value = 'Y'/>
日期选择：
从
<input type = 'text' name="DateStar" onfocus="setday(this)" size="10" maxlength="10" readonly value = '<%=DateStar%>' style = 'border:1px solid #000;line-height:17px;height:20px;text-align:center;' <%=keyColor%>/>
到
<input type = 'text' name="DateEnd" onfocus="setday(this)" size="10" maxlength="10" readonly value = '<%=DateEnd%>' style = 'border:1px solid #000;line-height:17px;height:20px;text-align:center;' <%=keyColor%>/>
<input type="button" value = '搜索' style = 'border:1px solid #000;line-height:17px;height:20px;' onclick="javascript:formSearch.submit();"/>
</form>
</div>
<form method='post' action="" name = 'form' id = 'form'>
<input type = 'hidden' name = 'Options'/>
<input type = 'hidden' name = 'Execute'/>
<table style = 'height:auto;width:100%; border-left: 1px solid buttonhighlight; border-right: 1px solid buttonshadow;border-top: 1px solid buttonhighlight; border-bottom: 0px solid buttonshadow;' cellspacing = '2' cellpadding = '0'>
<tr>
<td style = 'border-top:#848284 solid 1px;border-left:#848284 solid 1px; border-bottom:#ffffff solid 1px;border-right:#ffffff solid 1px;'>
<div style = 'width:100%;height:480px; left:0px; top:0px;z-index:1; overflow-y: auto;overflow-x:hidden;text-align:left; border-left: 1px solid #000000; border-right: 1px solid buttonface;border-top: 1px solid #000000; border-bottom: 1px solid buttonface;padding: 0px;'>
<table cellpadding='0' cellspacing='0' style = 'width:95%;border-top-style:none;border-left-style:none;' borderColorLight='#424142' border = '1' class = 'LinkA'>
<tr style = 'padding-left:3px;'>
<td style = 'width:12px;text-align:center;height:20px;padding:0px;'><span style='font-family:webdings;'>8</span></td>
<td style = 'width:35px;text-align:center;padding:0px;'>序号</td>
<td>日期</td>
<td>内容</td>
<td>添加者</td>
<td>提交日期</td>
<td>事务所属</td>
<td style = 'text-align:center;padding:0px;' id ='selbutton'></td>
</tr>
<%
LinkFile = SELVAR("FN","outhistory.asp")
LUrl = "DateStar=" & DateStar & "&DateEnd=" & DateEnd
SQL = "select * from TABAP where 1=1 " & DateSQL & " Order by id Desc"
'Response.Write SQL
Rs.Open(SQL),Conn,1,1
if not Rs.eof then
thisPageSize = 10
PageWrite = PaginatinoGoogle(Rs,noteTotal,thisPageSize,LinkFile,LUrl,LArr)
for i_his = 1 to thisPageSize
if Rs.eof then exit for
APid = Rs("id")
thisDate = Rs("thisDate")
APContext = Rs("Context") & ""
APaid = isNumber(Rs("aid"),"int",0)
isaid = isNumber(Rs("isaid"),"int",0)
aName = SelectZD("select TrueName from admins where aid = " & APaid & "","未知")
isAName = SelectZD("select TrueName from admins where aid = " & isaid & "","未知")
intoTime = Rs("intotime")
%>
<tr style = 'padding-left:3px;background-color:#ffffff;cursor: default;' onclick = "javascript:clicked_(<%=i_his-1%>);" id = 'tr'>
<td style = 'text-align:center;padding:0px;background-color:buttonface;height:18px;'>×</td>
<td style = 'text-align:center;padding:0px;background-color:buttonface;' id = 'td_'><%=APid%></td>
<td class = 'tempF'><%=thisDate%></td>
<td class = 'tempF'><%=Len(APContext)%> [字节]<input type = 'checkbox' name = 'box_' style = 'visibility:hidden;height:10px;' value = '<%=APid%>'/></td>
<td class = 'tempF'><%=aName%></td>
<td class = 'tempF'><%=intoTime%></td>
<td class = 'tempF'><%=isAName%></td>
<td class = 'tempF' id = 'selid_' style = 'text-align:center;'>
<input type = 'checkbox' style = 'border-style:none;widht:15px;height:15px;' name = 'selAnnounce' onClick = "javascript:checked_(<%=i_his-1%>);" onfocus="this.blur();" value = '<%=APid%>'/>
</td>
</tr>
<%
Rs.movenext
next
%>
<script type = 'text/javascript'>
<!--
selbutton.innerHTML = "<input name = '' type = 'button' style = 'border-style:none;' onClick=\"this.value=sel(this.form.selAnnounce,'反选','全选',selid_,'clicked');\" value = '全选' onfocus=\"this.blur();\"/>"
//-->
</script>
<%else%>
<tr style = 'padding-left:3px;background-color:#ffffff;cursor: default;'>
<td style = 'text-align:center;padding:0px;background-color:buttonface;height:18px;'>×</td>
<td style = 'text-align:center;padding:0px;background-color:buttonface;'>0</td>
<td class = 'tempF'></td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> <input type = 'checkbox' name = 'box_' style = 'visibility:hidden;height:10px;' value = ''/><input type = 'checkbox' name = 'selAnnounce' style = 'visibility:hidden;height:10px;' value = ''/></td>
<td class = 'tempF'> </td>
</tr>
<script type = 'text/javascript'>
<!--
selbutton.innerHTML = "<input name = '' type = 'button' style = 'border-style:none;' value = '全选' onfocus=\"this.blur();\"/>"
//-->
</script>
<%
end if
Rs.Close
if trim(Request.Form("Searched")) = "Y" then Response.Redirect(LinkFile & "?" & LUrl)
%>
</table>
</div></td>
</tr>
</table>
<div style = 'text-align:center;padding:5px;'><%=PageWrite%></div>
</form>
<%
Options = trim(Request.Form("Options"))
if Options = "delTrue" then
Set c01 = new CL01
selAnnounceList_ = c01.splitList(trim(Request.Form("Execute")),",",0)
SQL = "delete from TABAP where id in(" & selAnnounceList_ & ")"
Conn.Execute(SQL)
Response.Write viewinfo("divLoca","正在执行删除操作．请稍候…","")
Response.Write viewinfo("LocaTimeself","",SELVAR("FN","outhistory.asp"))
Set c01 = Nothing
end if
%>
</div>
<%
ConnClose()
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -