⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 q_list.asp

📁 WEB客户管理系统+小型OA系统。一个不错的程序
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>问题与答案</title>
<style type="text/css">
<!--
.style1 {font-size: 12px}
.style2 {
	font-size: 16px;
	color: #4F4F4F;
}
-->
</style>
</head>
<%
Rem Session("CRM_account") 用户帐号
Rem Session("CRM_name") 用户名
Rem Session("CRM_level") 用户等级

If Session("CRM_account") = "" Or Session("CRM_name") = "" Or Session("CRM_level") <= 0 Then Response.Redirect("login.asp")
%>

<!--#include file="Connections/conn.asp" -->
<body style="background-color: menu;" >
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr id="oHead" style="display: block;">
    <td height="1" valign="top"> 
      <table width="958" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="958" height="5"><img src="images/null.gif" width="1" height="1"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="menu">
        <tr> 
          <td align="left" background='images/tab_top_background_runner.gif'> <table width="5" border="0" align="left" cellpadding="0" cellspacing="0">
            <tr>
              <td><img src="images/null.gif" width="1" height="1"></td>
            </tr>
          </table>
          <table onClick="window.location.replace('listAll.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
            <tr > 
              <td><img src="images/tab_on_left.gif" width="16" height="24"></td>
              <td background="images/tab_on_middle.gif"><span class="STYLE9 style1">查看所有数据</span></td>
              <td><img src="images/tab_on_right.gif" width="16" height="24"></td>
            </tr>
          </table>
          <table onClick="window.location.replace('addData.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
            <tr>   
              <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
              <td background="images/tab_off_middle.gif"><span class="STYLE9 style1">添加数据</span></td>
              <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
            </tr>
          </table>	  
          <table onClick="window.location.replace('advanceSearch.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
            <tr> 
              <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
              <td background="images/tab_off_middle.gif"><span class="STYLE9 style1">高级搜索</span></td>
              <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
            </tr>
          </table>
          <table onClick="window.location.replace('dataForm.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
            <tr> 
              <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
              <td background="images/tab_off_middle.gif"><span class="STYLE9 style1">数据报表</span></td>
              <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
            </tr>
          </table>
          <table onClick="window.location.replace('exportData.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
            <tr> 
              <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
              <td background="images/tab_off_middle.gif"><span class="STYLE9 style1">数据导出</span></td>
              <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
            </tr>
          </table>
		  <table onClick="window.location.replace('question.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
            <tr> 
              <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
              <td background="images/tab_off_middle.gif"><span class="STYLE9 style1">问题集</span></td>
              <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
            </tr>
          </table>
		  <table onClick="window.location.replace('plan.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
            <tr> 
              <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
              <td background="images/tab_off_middle.gif"><span class="STYLE9 style1">计划与总结</span></td>
              <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
            </tr>
          </table>
<% If Session("CRM_level") = 9 Then %>
          <table onClick="window.location.replace('transData.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
            <tr> 
              <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
              <td background="images/tab_off_middle.gif"><span class="STYLE9 style1">数据转移</span></td>
              <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
            </tr>
          </table>
          <table onClick="window.location.replace('manageUser.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
              <tr> 
                <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
                <td background="images/tab_off_middle.gif"><span class="STYLE9 style1">用户管理</span></td>
                <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
              </tr>
            </table>
			<table onClick="window.location.replace('system_level.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
              <tr> 
                <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
                <td background="images/tab_off_middle.gif"><span class="STYLE9 style1">系统设置</span></td>
                <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
              </tr>
            </table>
<% End If %>
            <table onClick="window.location.replace('logout.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="right">
              <tr>    
              <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
              <td background="images/tab_off_middle.gif"><span class="STYLE9 style1">注销</span></td>
              <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
            </tr>
          </table>
            <table onClick="window.location.reload();" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="right">
              <tr> 
                <td><img src="images/tab_off_left.gif" width="16" height="24"></td>
                <td background="images/tab_off_middle.gif"><span class="STYLE9 style1">刷新</span></td>
                <td><img src="images/tab_off_right.gif" width="16" height="24"></td>
              </tr>
            </table></td>
      </tr>
    </table>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>

<%
dim msgid
msgid=request.QueryString("msgid")
if msgid<>"" then

conn.execute("delete from question where msgid="&msgid)
msgid=""
end if
%>
<%
typeid=request.QueryString("typeid")

if typeid<>"" then
set rs=conn.execute("select * from question where typeid="&typeid &" order by msgid asc")
end if
%>
<table width="100" border="0" align="right">
  <tr>
    <td><div align="center"><a href="#" class="style1" onClick="history.go(-1)">返回</a></div></td>
  </tr>
</table>
<p>&nbsp;</p>
<hr width="800">
<p>&nbsp;</p>
<%
i=0
while not rs.eof
  if i mod 2=0 then
%>
<table width="800" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#B8B8B8">
 <%else%>
<table width="800" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#7FBFFF">
<%end if%>
  <tr>
    <td width="78"><span class="style1">发言人:</span></td>
    <td width="141"><span class="style1"><%=rs("username")%></span></td>
	 <%if i=0 then%>
    <td width="581" rowspan="2"><span class="style1"><%=rs("info")%></span></td>
	<%If Session("CRM_level") = 9 Then%>
	<td width="50" rowspan="2" align="center"><span class="style1">删除</span></td>
	<%end if%>
	<%else%>
	<td width="581" rowspan="2"><span class="style1"><%=rs("info")%></span></td>
	<%If Session("CRM_level") = 9 Then%>
	<td width="50" rowspan="2" align="center"><span class="style1"><a href="q_list.asp?msgid=<%=rs("msgid")%>&typeid=<%=rs("typeid")%>">删除</a></span></td>
	<%end if%>
	<%end if%>
  </tr>
  <tr>
    <td><span class="style1">发言时间:</span></td>
    <td><span class="style1"><%=rs("addtime")%></span></td>
  </tr>
</table>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<%
i=i+1
rs.movenext
wend
rs.close
%>
<br><hr width="800">
<%If Session("CRM_level") = 9 Then%>
<p align="center" class="style2">回答问题</p>
<form name="form1" method="post" action="savereplay.asp?typeid=<%=typeid%> ">
  <table width="560" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr class="style1">
      <td width="95">发言人:</td>
      <td width="465"><input name="username" type="text" id="username" value="<%=Session("CRM_name")%>"></td>
    </tr>
    <tr class="style1">
      <td>主要内容:</td>
      <td><textarea name="info" cols="50" rows="8" id="info"></textarea></td>
    </tr>
    <tr>
      <td colspan="2" align="center"><input type="submit" name="Submit" value="提 交"></td>
    </tr>
  </table>
  <table width="560" border="0" align="center" cellpadding="0" cellspacing="0">
  </table>
</form>
<%end if%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -