📄 ht_gysinfo.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../Inc/syscode.asp"-->
<html>
<head>
<title>基础资料维护--供应商资料</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/body.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function SwitchMenu(obj,ckid){
if(document.getElementById){
var el = document.getElementById(obj);
var ar = document.getElementById("masterdiv").getElementsByTagName("tr"); //DynamicDrive.com change
for (var i=0; i<ar.length; i++){
ar[i].className= "";
}
el.className= "over";
}
document.ck_id.id.value=ckid;
}
function ckmodi(){
if (document.ck_id.id.value==""){
alert('请选择要修改的记录！');
return false;
}
window.open("gysinfo_modi.asp?company_id=" + document.ck_id.id.value,"_blank","height=435,width=510,resizable=no,scrollbars=no,statue=no,toolbar=no,menubar=no,location=no,left=150,top=80");
}
function ckdel(){
if (document.ck_id.id.value==""){
alert('请选择要删除的记录！');
return false;
}
if (confirm('你确定要删除吗？')){
window.open("gysinfo_del.asp?company_id=" + document.ck_id.id.value,"_blank","height=10,width=20,resizable=no,scrollbars=no,statue=no,toolbar=no,menubar=no,location=no,left=150,top=80");
}
}
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<link href="../css/test.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" cellspacing="0">
<tr>
<td align="center" valign="top" class="borderon"> <table width="100%" border="0">
<tr>
<td background="../images/bjin.gif">
<%
dim curpage
if request("curpage")="" then
curpage=1
else
curpage=request("curpage")
end if
if not isnumeric(trim(request("curpage"))) then
curpage=1
end if
const numperpage=25
' call OpenDataConn()
set rs=server.createobject("adodb.recordset")
sql="select * from ht_company order by company_id desc"
' response.Write(sql)
'response.End()
rs.open sql,conn,3,3
if rs.eof then
response.write "<table><tr><td><br></br><center>暂无数据，请添加！</center><br></br></td></tr></table>"
response.end
end if
if not rs.eof then
rs.pagesize=numperpage
dim totalpages
totalpages=rs.pagecount
if cint(curpage)>cint(totalpages) then
curpage=totalpages
end if
rs.absolutepage=curpage
end if
dim count
count=0
i=1
%>
<table width="100%" border="0" cellspacing="0">
<tr>
<td width="5" height="22" onMouseOver=this.className='button2' onMouseDown=this.className='button4' onMouseOut=this.className=''><img src="../images/s.gif" width="3" height="18"></td>
<td width="80" onMouseOver=this.className='button2' onMouseDown=this.className='button4' onMouseOut=this.className=''>
<div align="center"><a href="javascript:;" onClick="MM_openBrWindow('gysinfo_add.asp','','width=510,height=435')"><img src="../images/bmdd.gif" alt="增加" width="74" height="19" border="0"></a></div></td>
<td width="80" onMouseOver=this.className='button2' onMouseDown=this.className='button4' onMouseOut=this.className=''>
<div align="center"><img src="../images/vr.gif" alt="修改" width="74" height="19" onClick="ckmodi();"></div></td>
<td width="80" onMouseOver=this.className='button2' onMouseDown=this.className='button4' onMouseOut=this.className=''>
<div align="center"><img src="../images/dr.gif" alt="删除" width="74" height="19" onClick="ckdel();"></div></td>
<td width="1" background="../images/su.gif" ></td>
<td width="2" ><form action="" method="post" name="ck_id" id="ck_id">
<input name="id" type="hidden" id="id">
</form></td>
<td > <table width="216" border="0" cellspacing="0">
<%
filename=Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
fname=mid(filename,postion)
'response.Write(fname)
%>
<tr>
<td width="20" height="20" onMouseOver=this.className='button2' onMouseDown=this.className='button4' onMouseOut=this.className=''>
<div align="center">
<%
if cint(curpage)>1 then
response.write "<a href="&fname&"?curpage="&curpage-1&"><img src='../images/syy.gif' alt='上一页' border='0'></a>"
else
response.write "<img src='../images/syy.gif' alt='上一页' border='0'>"
end if
%>
</div></td>
<td width="20" onMouseOver=this.className='button2' onMouseDown=this.className='button4' onMouseOut=this.className=''>
<div align="center">
<%
if cint(curpage)<>cint(totalpages) then
response.write "<a href="&fname&"?curpage="&curpage+1&"><img src='../images/xyy.gif' alt='下一页' border='0'></a>"
else
response.write "<img src='../images/xyy.gif' alt='下一页' border='0'>"
end if
%>
</div></td>
<td width="170"><div align="center">当前页：<%=curpage%>/共<%=totalpages%>页</div></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" bgcolor="#000000" >
<tr>
<td align="center" valign="top" class="borderon3"><table id="masterdiv" width="100%" border="0" cellspacing="1" bgcolor="#E4E4E4">
<tr>
<td width="30" height="21" class="borderon"><div align="center">编号</div></td>
<td width="60" class="borderon"><div align="center">往来类型</div></td>
<td width="80" class="borderon"><div align="center">单位编号 </div></td>
<td width="80" class="borderon"><div align="center">单位名称</div></td>
<td width="50" class="borderon"><div align="center">单位地址</div></td>
<td width="59" class="borderon"><div align="center">联系人</div></td>
<td width="74" class="borderon"><div align="center">联系电话</div></td>
<td width="43" class="borderon"><div align="center">传真</div></td>
<td width="74" class="borderon"><div align="center">开户银行</div></td>
<td width="85" class="borderon"><div align="center">银行帐号</div></td>
<td width="76" class="borderon"><div align="center">备注</div></td>
</tr>
<%
do while not rs.eof and count<numperpage
%>
<tr id=<%=i%> bgcolor="#FFFFFF" onClick="SwitchMenu(<%=i%>,<%=trim(rs("company_id"))%>);">
<td bgcolor="#E0E0E0" ><div align="center"><%=trim(rs("company_id"))%></div></td>
<td ><div align="center"><%
set rs2=conn.execute("select company_typename from ht_companytype where company_typeid="&trim(rs("company_type_id")))
if not rs2.eof then
response.write rs2(0)
end if
rs2.close
set rs2=nothing
%></div></td>
<td ><div align="center"><%=trim(rs("number"))%></div></td>
<td ><div align="center"><%=trim(rs("company_name"))%></div></td>
<td ><div align="center"><%=trim(rs("company_address"))%></div></td>
<td ><div align="center"><%=trim(rs("company_linkman"))%></div></td>
<td ><div align="center"><%=trim(rs("company_linkmantel"))%></div></td>
<td ><div align="center"><%=trim(rs("company_fax"))%></div></td>
<td ><div align="center"><%
set rs2=conn.execute("select bank_name from ht_bank where bank_id="&trim(rs("company_bank_id")))
if not rs2.eof then
response.Write(rs2(0))
end if
rs2.close
set rs2=nothing
%></div></td>
<td ><div align="center"><%=trim(rs("company_banknum"))%></div></td>
<td ><div align="center"><%=trim(rs("remark"))%></div></td>
</tr>
<%
rs.movenext
i=i+1
count=count+1
loop
rs.close
set rs=nothing
CloseDataConn
%>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center">
<tr>
<td><div align="center">
<% call PageNum(curpage,totalpages,"?curpage=") %>
</div></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -