📄 b2b_ghsgl.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if request.cookies("Buy2Buy")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
end if
'限制所有
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
<%
action=FormatSQL(SafeRequest("action",0))
id=FormatSQL(SafeRequest("id",0))
if action="del" then
sql="delete from Supplier where id="&id
conn.execute(sql)
response.write "<script>alert('删除成功！');window.location.href='b2b_ghsgl.asp';</Script>"
response.end
end if
%>
<style type="text/css">
<!--
.style4 {color: #FFFFFF}
.style6 {color: #FFFFFF; font-weight: bold; }
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.STYLE1 {color: #000000;
font-weight: bold;
}
.STYLE2 {color: #FF0000}
-->
</style>
<table width="99%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
<tr>
<td height="20" background="images/topbg.gif"><span class="STYLE1"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -> <span class="STYLE2">供货商管理</span></span></td>
</tr>
<tr>
<td height="100" bgcolor="#FFFFFF"><br>
<%
Const MaxPerPage=30
selecttm=FormatSQL(SafeRequest("selecttm",0))
selectkey=FormatSQL(SafeRequest("selectkey",0))
if Not isempty(SafeRequest("page",1)) then
currentPage=Cint(SafeRequest("page",1))
else
currentPage=1
end if
if selecttm="" then
sql="select * from Supplier order by SupplierCode"
end if
if selecttm="按供货商名称" then
sql="select * from Supplier where SupplierName like '%"&selectkey&"%' order by SupplierCode"
end if
if selecttm="按供货商编号" then
sql="select * from Supplier where SupplierCode like '%"&selectkey&"%' order by SupplierCode"
end if
set michaelrs=server.CreateObject("adodb.recordset")
michaelrs.open sql,conn,1,1
if michaelrs.eof And michaelrs.bof then
Response.Write "<p align='center' class='contents'> 数据库中暂时无数据！</p>"
else
totalPut=michaelrs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"b2b_ghsgl.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
michaelrs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=michaelrs.bookmark
showContent
showpage totalput,MaxPerPage,"b2b_ghsgl.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"b2b_ghsgl.asp"
end if
end if
end if
sub showContent
dim i
i=0
%>
<%
do while not michaelrs.eof
%>
<table width="98%" border="2" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
<tr>
<td colspan="6" valign="top" background="images/topbg.gif">【<%=trim(michaelrs("SupplierName"))%>】【<%=trim(michaelrs("SupplierCode"))%>】 <input name="Submit" type="button" class="input_bot" onclick="b2b_cs.asp');return document.MM_returnValue" value="修改此供货商信息">
<input name="Submit" type="button" class="input_bot" value="删除" onclick="MM_goToURL('self','b2b_cs.asp');return document.MM_returnValue"></td>
</tr>
<tr>
<td width="13%" height="25" valign="top" bgcolor="#f4f4f4"><strong>公司类型</strong></td>
<td width="19%" height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("SupplierType"))%></td>
<td width="18%" height="25" valign="top" bgcolor="#f4f4f4"><strong>公司所在地</strong></td>
<td width="17%" height="25" valign="top" bgcolor="#FFFFFF"><%
tempsql="select * from welcomeshengbuy where ShengNo='"&michaelrs("SupplierProvince")&"'"
set temprs=server.CreateObject("adodb.recordset")
temprs.open tempsql,conn,1,1
if not (temprs.eof and temprs.bof) then
response.write temprs("shengname")
shengID=temprs("id")
end if
temprs.close
tempsql="select * from welcomeshibuy where ShengID="&shengID&" and ShiNO='"&michaelrs("SupplierCity")&"'"
temprs.open tempsql,conn,1,1
if not (temprs.eof and temprs.bof) then
response.write " "&temprs("shiname")
end if
temprs.close
set temprs=nothing
%></td>
<td width="15%" height="25" valign="top" bgcolor="#f4f4f4"><strong>邮政编码</strong></td>
<td width="18%" height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("SupplierPostCode"))%></td>
</tr>
<tr>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>公司电话</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("SupplierPhone"))%></td>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>传真号码</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("SupplierFax"))%></td>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>法人代表</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("SupplierCorporation"))%></td>
</tr>
<tr>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>经营地址</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("SupplierAddress"))%></td>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>主营行业</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("SupplierVocation"))%></td>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>主营方向</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%response.write michaelrs("SupplierWay")&michaelrs("SupplierWayA")&michaelrs("SupplierWayB")%></td>
</tr>
<tr>
<td background="images/topbg.gif" height="25" colspan="6" valign="top">【<STRONG>业务联系人信息①</STRONG>】</td>
</tr>
<tr>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>联系人姓名</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("LinkManNameA"))%></td>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>联系电话</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("LinkManPhoneA"))%></td>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>联系手机</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("LinkManMobileA"))%></td>
</tr>
<tr>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>E-Mail</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("LinkManEmailA"))%></td>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>OICQ/旺旺/MSN/其它</strong></td>
<td height="25" colspan="3" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("LinkManQQA"))%></td>
</tr>
<tr>
<td background="images/topbg.gif" height="25" colspan="6" valign="top">【<STRONG>业务联系人信息②</STRONG>】</td>
</tr>
<tr>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>联系人姓名</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("LinkManNameB"))%></td>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>联系电话</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("LinkManPhoneB"))%></td>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>联系手机</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("LinkManMobileB"))%></td>
</tr>
<tr>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>E-Mail</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("LinkManEmailB"))%></td>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>OICQ/旺旺/MSN/其它</strong></td>
<td height="25" colspan="3" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("LinkManQQB"))%></td>
</tr>
<tr>
<td background="images/topbg.gif" height="25" colspan="6" valign="top">【<STRONG>业务联系人信息③</STRONG>】</td>
</tr>
<tr>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>联系人姓名</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("LinkManNameC"))%></td>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>联系电话</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("LinkManPhoneC"))%></td>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>联系手机</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("LinkManMobileC"))%></td>
</tr>
<tr>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>E-Mail</strong></td>
<td height="25" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("LinkManEmailC"))%></td>
<td height="25" valign="top" bgcolor="#f4f4f4"><strong>OICQ/旺旺/MSN/其它</strong></td>
<td height="25" colspan="3" valign="top" bgcolor="#FFFFFF"><%=trim(michaelrs("LinkManQQC"))%></td>
</tr>
</table>
<hr align="center" width="98%" size="0">
<%
i=i+1
if i>=MaxPerPage then Exit Do
michaelrs.movenext
loop
%>
<%
end sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If
Response.Write "<form method=Post action=b2b_ghsgl.asp?selectm="&selectm&"&selectkey="&selectkey&" >"
Response.Write "<p align='center' class='contents'> "
If CurrentPage<2 Then
Response.Write "<font class='contents'>首 页 上一页</font> "
Else
Response.Write "<a href=b2b_ghsgl.asp?page=1&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>首 页</a> "
Response.Write "<a href=b2b_ghsgl.asp?page="&CurrentPage-1&"&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>上一页</a> "
End If
If n-currentpage<1 Then
Response.Write "<font class='contents'>下一页 末 页</font>"
Else
Response.Write "<a href=b2b_ghsgl.asp?page="&(CurrentPage+1)&"&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>"
Response.Write "下一页</a> <a href=b2b_ghsgl.asp?page="&n&"&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>末 页</a>"
End If
Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "
Response.Write "<font class='contents'> 共有"&totalnumber&"种商品 "
Response.Write "<font class='contents'>转到第：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="¤tpage&">页"
Response.Write " <input type='submit' class='input_bot' value='跳转' name='cndok' ></form>"
End Function
%>
<br>
</td>
</tr>
</table>
<br>
<table width="99%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
<tr>
<td height="20" background="images/topbg.gif"><span class="STYLE1"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -> <span class="STYLE2">供货商搜索</span></span></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><br>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#f2f2f2">
<form action="b2b_ghsgl.asp" method="post" name="myformsearch">
<tr bgcolor="#f7f7f7">
<td align="center"><input name="selectkey" type="text" class="input_sr" id="selectkey" value="请输入关键字" size="30"></td>
<td width="31%" align="center">
<select name="selecttm" id="selecttm">
<option selected>按供货商名称</option>
<option>按供货商编号</option>
</select></td>
<td align="center" bgcolor="#f7f7f7"><input type="submit" name="Submit" value="搜索信息"></td>
</tr>
</form>
</table>
<br></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -