📄 d_sciencemainfrm.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<!--#include file="../include/PubConnCode.asp"-->
<% username=getuser()
userclass=tablevisitor("d_clientinfo",username)
departid=session("departid")
dim mails()%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title></title><link href="../cread.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgcolor="#FFFFFF" >
<script language="vbscript">
sub Search_click()
a="D_ScienceMainFrm.asp?tag=Search&m_name="+document.form1.m_name.value
window.location =a
end sub
sub qx()
msgbox "您无此权限！"
exit sub
end sub
</script>
<script language="vbscript">
sub GoPage()
a="D_ScienceMainFrm.asp?page1="+document.form1.page11.value+"&par_name="+document.form1.m_name.value
window.location=a
end sub
</script>
<%function GetYWYName(aa)
set rs1=server.CreateObject("adodb.recordset")
if rs1.State=1 then rs1.Close
rs1.Open "select * from A_stuffinfo where stuffnum='"& aa &"'",pubconn,1,3
if rs1.RecordCount>0 then
GetYWYName=rs1.Fields("Name")
else
GetYWYName=""
end if
end function%>
<%function GetSql(a)
if a<>"" then
GetSql="select * from D_clientinfo where tag='hbscience' and clientname like '"& a &"%' and departid like '"&departid&"%' and delflag='0'"
else
GetSql="select * from D_clientinfo where tag='hbscience' and departid like '"&departid&"%' and delflag='0'"
end if
end function%>
<%tag1="Lookup"%>
<%tag2="New"%>
<%page1=Request("page1")%>
<%set rs=server.CreateObject ("adodb.recordset")%>
<%if Request("tag")="Search" then%><%'''''''''''''''''''''''''''''''''''一般查询%>
<% m_name1=trim(Request("m_name"))
else
m_name1=trim(Request("par_name"))%>
<%end if%>
<%sql=GetSql(m_name1)
rs.Open sql,pubconn,1,3%>
<form name=form1 method="post" action="D_ScienceSubFrm.asp">
<table border="0" width="100%">
<tr>
<td width="100%" valign="middle"><img border="0" src="it_22.gif" width="34" height="15"> <b><font size="2">科研机构信息</font></b><hr width="40%" align="left" color="#C0C0C0" size="1"></td>
</tr>
</table>
<table border=0 cellspacing=0 width="641" cellpadding="0" bordercolorlight="#FFFFFF" bordercolor="#000000" height="45">
<tr bgcolor="F1E8DA">
<td width="95">
<p align="right">
    伙伴名称 </p>
</td>
<td width="202">
<p align="left">
<input type="text" name="m_name" size=31 value=<%=m_name1%>></p>
</td>
<center>
<%'<td>伙伴区域</td><td><select name="m_area" style="width:100" onchange="SelectArea(m_area1)"></select></td> %>
</center>
<td align="center" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" width="338">
<p align="left"> <input type="button" name="Search" value="查询" onclick="Search_click()" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1"></p>
</td>
</tr>
</table><hr color="#FFFFFF">
<%if rs.RecordCount <=0 then%>
<table border=1 cellspacing="0" width="100%" bgcolor="#D1D1D1">
<tr>
<td bgcolor="#DDD2C4"> </td>
<td bgcolor="#DDD2C4" ><p align="center">伙伴名称</p></td>
<td bgcolor="#DDD2C4" ><p align="center">区域</p></td>
<td bgcolor="#DDD2C4" ><p align="center">行业</p></td>
<td bgcolor="#DDD2C4" ><p align="center">电话</p></td>
<td bgcolor="#DDD2C4"><p align="center">传真</p></td>
<td bgcolor="#DDD2C4"><p align="center">业务员</p></td>
</tr>
</table><hr color="#FFFFFF">
<%if userclass>1 then%>
<input type="submit" value="新建" name="B1" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<%else%>
<input type="button" value="新建" onclick="javascript:location.href='qx.asp'" name="B1" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<%end if%>
<%response.end%>
<%else%>
<table border=1 cellspacing="0" width="100%" bgcolor="#D1D1D1">
<tr>
<td bgcolor="#DDD2C4"> </td>
<td bgcolor="#DDD2C4" ><p align="center">伙伴名称</p></td>
<td bgcolor="#DDD2C4" ><p align="center">区域</p></td>
<td bgcolor="#DDD2C4" ><p align="center">行业</p></td>
<td bgcolor="#DDD2C4" ><p align="center">电话</p></td>
<td bgcolor="#DDD2C4"><p align="center">传真</p></td>
<td bgcolor="#DDD2C4"><p align="center">业务员</p></td>
</tr>
<%if request("page1")<>"" then
page1=cint(request("page1"))
else
page1=1
end if
rs.pagesize=10
'//重新定义电子邮件大小
redim mails(rs.pagesize)
if page1>=rs.pagecount then
page1=rs.pagecount
else
if page1<1 then
page1=1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -