link_body.asp

某展览服务公司网站源码： 为达到最佳效果

set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
      <table align="center" width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr> 
            <td bgcolor="#E8E8E8"><a name="dellink" id="dellink">删除部门</a>&nbsp;&nbsp;注意：删除部门将同时删除部门内容,建议你使用修改功能！</font></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF" class="chinese">部门名称: <%=rs("l_type")%> 
            </td>
          </tr>
          <tr> 
            <td bgcolor="#F5F5F5" class="chinese" height="30" align="center"> 
              <input name="Submit" type="submit" class="button" id="Submit" value="确定删除"> 
              [<a href="admin_link.asp">返回</a>] </td>
          </tr>
          <input type="hidden" name="id" value="<%=rs("l_id")%>">
          <input type="hidden" name="action" value="dellink">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
	  <%End if
	  
	  if request.QueryString("action")="viewlink" then
      if request.querystring("id")="" then
      errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
      Call diserror()
      response.End
      else
      if Not isinteger(request.querystring("id")) then
       errmsg=errmsg+"<br>"+"<li>非法的ID参数！"
	   Call diserror()
	   response.End
       End if
      End if
sql="select * from link_info where link_class_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
      <table align="center" width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
        <form name="form8" method="post" action="">
          <tr> 
            <td bgcolor="#E8E8E8"><a name="viewlink" id="viewlink">查看内容</a></font></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF" class="chinese"><% = request.querystring("l_type")%>
            </td>
          </tr>
		  <tr> 
            <td bgcolor="#FFFFFF" class="textarea">&nbsp;联 系 人：
            <input name="link_name" type="text" value="<%=rs("link_name")%>" size="20" maxlength="20"></td>
          </tr>
		  <tr> 
            <td bgcolor="#FFFFFF" class="textarea">&nbsp;电话号码：            
            <input name="link_tel" type="text" value="<%=rs("link_tel")%>" size="20" maxlength="20"></td>
          </tr>
		  <tr> 
            <td bgcolor="#FFFFFF" class="textarea">&nbsp;传真号码：
            <input name="link_fax" type="text" value="<%=rs("link_fax")%>" size="20" maxlength="20"></td>
          </tr>
		  <tr> 
            <td bgcolor="#FFFFFF" class="textarea">&nbsp;电子信箱：
          <input name="link_email" type="text" value="<%=rs("link_email")%>" size="20" maxlength="20"></td>
          </tr>
          <tr> 
            <td bgcolor="#F5F5F5" class="chinese" height="30" align="center"> 
          <input name="Submit" type="submit" class="button" id="Submit" value="确定修改"> 
              [<a href="admin_link.asp">返回</a>] </td>
          </tr>
          <input type="hidden" name="id" value="<%=cint(request.querystring("id"))%>">
          <input type="hidden" name="action" value="edittextlink">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
	  <%End if
	  
	  
	  if request.QueryString("action")="addlink" then
      if request.querystring("id")="" then
      errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
      Call diserror()
      response.End
      else
      if Not isinteger(request.querystring("id")) then
      errmsg=errmsg+"<br>"+"<li>非法的ID参数！"
	  Call diserror()
	  response.End
      End if
      End if
     %>
      <table align="center" width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
        <form name="form9" method="post" action="">
          <tr> 
            <td bgcolor="#E8E8E8"><a name="addlink" id="addlink">增加内容</a></font></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF" class="chinese"><% = request.querystring("l_type")%>
            </td>
          </tr>
		  <tr> 
            <td bgcolor="#FFFFFF" class="textarea">&nbsp;联 系 人：
            <input name="link_name" type="text" size="20" maxlength="20"></td>
          </tr>
		  <tr> 
            <td bgcolor="#FFFFFF" class="textarea">&nbsp;电话号码：
            <input name="link_tel" type="text" size="20" maxlength="20"></td>
          </tr>
		  <tr> 
            <td bgcolor="#FFFFFF" class="textarea">&nbsp;传真号码：
            <input name="link_fax" type="text" size="20" maxlength="20"></td>
          </tr>
		  <tr> 
            <td bgcolor="#FFFFFF" class="textarea">&nbsp;电子信箱：
            <input name="link_email" type="text" size="20" maxlength="20"></td>
          </tr>
          <tr> 
            <td bgcolor="#F5F5F5" class="chinese" height="30" align="center"> 
              <input name="Submit" type="submit" class="button" id="Submit" value="确定增加"> 
              [<a href="admin_link.asp">返回</a>] </td>
          </tr>
          <input type="hidden" name="id" value="<%=cint(request.querystring("id"))%>">
          <input type="hidden" name="action"    value="addlink">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
<% End if %>
      <br>
    </td>
  </tr>
  <tr> 
    <td colspan="3" height="1" background="images/dotlineh.gif"></td>
  </tr>
</table>
<% 
       sql_c="select * from config"
       set rs_c=server.createobject("adodb.recordset")
       rs_c.open sql_c,conn,1,1
     %>
      <table width="98%" border="1" align="center" cellpadding="4" cellspacing="0" bordercolor="#C0C0C0" >
        <% if rs_c.BOF and rs_c.EOF then %>
		<tr>
          <td height="30" colspan="4">&nbsp;没有输入公司基本信息&nbsp;&nbsp; 【<a href="admin_config.asp?action=addconfig">输入基本信息</a>】</td>
        </tr>
		<% 
		elseif Not(rs_c.EOF or rs_c.BOF) then %>
		<tr bgcolor="#E8E8E8">
          <td height="30" colspan="4">&nbsp;公司基本信息查看</td>
        </tr>
        <tr>
          <td width="13%" height="30" align="right" valign="middle">公司名称：</td>
          <td colspan="3" align="left" valign="middle"><%= rs_c("c_incname") %></td>
        </tr>
        <tr>
          <td height="30" align="right" valign="middle">公司地址：</td>
          <td width="41%" height="30" align="left" valign="middle"><%= rs_c("c_addr") %></td>
          <td width="14%" align="right" valign="middle">公司网址：</td>
          <td width="32%" align="left" valign="middle"><%= rs_c("c_web") %></td>
        </tr>
        <tr>
          <td height="30" align="right" valign="middle">电话号码： </td>
          <td height="30" align="left" valign="middle"><%= rs_c("c_tel") %></td>
          <td align="right" valign="middle">电子邮箱：</td>
          <td align="left" valign="middle"><%= rs_c("c_email") %></td>
        </tr>
        <tr>
          <td height="30" align="right" valign="middle">传真号码：</td>
          <td height="30" align="left" valign="middle"><%= rs_c("c_fax") %></td>
          <td align="right" valign="middle">联 系 人：</td>
          <td align="left" valign="middle"><%= rs_c("c_linkman") %></td>
        </tr>
		<tr align="center" valign="middle">
          <td height="30" colspan="4">【<a href="admin_config.asp?action=editconfig">修改信息</a>】</td>
        </tr>
		<% 
		End if
		rs_c.close
		set rs_c=Nothing
		 %>
      </table>
<%
rs.close
set rs=Nothing

End sub
sub v1(id,l_type)
v_sql="select * from link_info where link_class_id="&id
set v_rs=server.createobject("adodb.recordset")
v_rs.open v_sql,conn,1,1
if v_rs.EOF and v_rs.BOF then
%>
<a href="admin_link.asp?id=<%=id%>&l_type=<%=l_type%>&action=addlink">[增加部门内容]</a>
<%
else
%>
<a href="admin_link.asp?id=<%=id%>&l_type=<%=l_type%>&action=viewlink">[修改部门内容]</a>
&nbsp;&nbsp;
<a href="../showlink.asp">[查看部门内容]</a>

<%
End if
v_rs.close
set v_rs=Nothing
End sub
%>