service.asp
来自「Activity——活动管理模块 Analyse——分析模块 Client—」· ASP 代码 · 共 470 行 · 第 1/2 页
ASP
470 行
<input type="hidden" name="act">
<%if editflag=1 then %>
<input type="hidden" name="feedbackid" value="<%=request("feedbackID")%>">
<%end if%>
<TABLE width="751" border=0 align=center cellPadding=3 cellSpacing=1 bgcolor="#33CCFF">
<TBODY>
<%
if editflag=1 then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from feedback where feedbackID="&cint(trim(request("feedbackID")))
rs.Open sql,conn,3
end if
%>
<TR>
<TD align="left" valign="middle" bgcolor="#FFFFFF" width="80"> <FONT face=Wingdings color=#99ccff >v</FONT><span class="style1">反馈主题:
</span> </td>
<td bgcolor="#FFFFFF" width="250">
<% if editflag=1 then
response.write rs("FeedBackTopic")
else
%>
<input name="FeedBackTopic" type="text" size="30" maxlength="50" value="<%=request("FeedBackTopic")%>" >
<%end if %>
</TD>
<td bgcolor="#FFFFFF" width="100" >
<FONT face=Wingdings color=#99ccff >v</FONT><span class="style1">产品: </span>
</td>
<td colspan="4" bgcolor="#FFFFFF">
<% if editflag=1 then
response.write rs("FeedBackProduct")
else
%>
<select name="Productname" class="text190">
<option value="0" >未选择产品 </option>
<%
set rs_s = server.createobject("adodb.recordset")
sql_s= "select distinct ProductID,Productname from Product order by ProductID "
rs_s.open sql_s,conn,3
if not rs_s.eof then
for i=1 to rs_s.recordcount
%>
<option value="<%=trim(rs_s("Productname"))%>" <% if request("Productname")=trim(rs_s("Productname")) then response.Write("selected") %>> <%=rs_s("Productname")%></option>
<%
rs_s.movenext
next
end if
set rs_s=nothing
%> <option value="其它" <% if request("Productname")="其它" then response.Write("selected") %>>其它 </option>
</select>
<%end if%>
</td>
</TR>
<TR>
<TD align="left" valign="middle" bgcolor="#FFFFFF" > <FONT face=Wingdings color=#99ccff >v</FONT><span class="style1">相关客户:
</span> </td>
<td bgcolor="#FFFFFF">
<% if editflag=1 then
response.write showclientname(rs("FeedBackclientID"))
else
%>
<select name="FeedBackclientID" onChange="clientchang()" class="text190">
<option value="0" >未选择供应商</option>
<%
set rs_s = server.createobject("adodb.recordset")
sql_s= "select distinct clientid,clientname from client order by clientid "
rs_s.open sql_s,conn,3
if not rs_s.eof then
for i=1 to rs_s.recordcount
%>
<option value="<%=trim(rs_s("clientid"))%>" <% if request("FeedBackclientID")=trim(rs_s("clientid")) then response.Write("selected") %>> <%=rs_s("clientname")%></option>
<%
rs_s.movenext
next
end if
set rs_s=nothing
%>
</select>
<%end if%>
</TD>
<td bgcolor="#FFFFFF"> <FONT face=Wingdings color=#99ccff >v</FONT><span class="style1">服务反馈类型:
</span> </td>
<td bgcolor="#FFFFFF">
<% if editflag=1 then
response.write rs("FeedBackSort")
else
%>
<select name="FeedBackSort" >
<option value="上门服务" <% if request("FeedBackSort")="上门服务" then response.Write("selected")%>>上门服务</option>
<option value="电话服务" <% if request("FeedBackSort")="电话服务" then response.Write("selected")%>>电话服务</option>
<option value="预约服务" <% if request("FeedBackSort")="预约服务" then response.Write("selected")%>>预约服务</option>
<option value="其它" <% if request("FeedBackSort")="其它" then response.Write("selected")%>>其它</option>
</select>
<%end if%>
</td>
<TD align="left" valign="middle" bgcolor="#FFFFFF" width="80">
<FONT face=Wingdings color=#99ccff >v</FONT></FONT><span class="style1">反馈日期:
</span> </td>
<td bgcolor="#FFFFFF">
<% if editflag=1 then
response.write rs("FeedBackdate")
else
%>
<input name="FeedBackdate" type="text" size="10" maxlength="20" readonly="true" value="<%=request("FeedBackdate")%>">
<input name="Button2" type="button" class="button_dic" id="Button2" onClick="show_calendar('FeedBackmain.FeedBackdate')" value="…">
<%end if%>
</TD>
</TR>
<TR>
<TD align="left" valign="middle" bgcolor="#FFFFFF" > <FONT face=Wingdings color=#99ccff >v</FONT><span class="style1">相关联系人:
</span> </td>
<td bgcolor="#FFFFFF">
<% if editflag=1 then
response.write showtouchmanname(rs("FeedBacktouchmanID"))
else
%>
<select name="FeedBacktouchmanID" class="text190">
<option value="0" >未选择联系人所属的客户</option>
<%
if request("FeedBackclientID")<> "" then
set rs_s = server.createobject("adodb.recordset")
sql_s= "select distinct touchmanID,touchmanname from touchman where touchmanID="& request("FeedBackclientID")&" order by touchmanid "
rs_s.open sql_s,conn,3
if not rs_s.eof then
for i=1 to rs_s.recordcount
%>
<option value="<%=trim(rs_s("touchmanID"))%>" <% if request("touchmanID")=trim(rs_s("touchmanID")) then response.Write("selected") %>> <%=rs_s("touchmanname")%></option>
<%
rs_s.movenext
next
end if
set rs_s=nothing
end if
%>
</select>
<%end if%>
</TD>
<td bgcolor="#FFFFFF"> <FONT face=Wingdings color=#99ccff >v</FONT><span class="style1">结束服务:
</span> </td>
<td bgcolor="#FFFFFF">
<input name="FeedBackOver" type="checkbox" value="1"
<%if editflag=1 then
if rs("FeedBackOver")=1 then
response.Write("checked")
end if
else
if request("FeedBackOver") = "1"then
response.Write("checked")
end if
end if %>
>
</td>
<TD align="left" valign="middle" bgcolor="#FFFFFF" > <FONT face=Wingdings color=#99ccff >v</FONT></FONT><span class="style1">结束日期:
</span> </td>
<td bgcolor="#FFFFFF">
<input name="FeedBackOverdate" type="text" size="10" maxlength="10" readonly="true" value="<%if editflag=1 then response.Write trim(rs("FeedBackOverDate")) else response.Write trim(request("FeedBackOverdate")) end if%>">
<input name="Button2" type="button" class="button_dic" id="Button2" onClick="show_calendar('FeedBackmain.FeedBackOverdate')" value="…">
</TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD colspan="6" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><span class="style1">详细描述: </span></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD colspan="6" >
<% if editflag=1 then
response.write (rs("Feedbackdetail"))
else
%>
<textarea name="Feedbackdetail" cols="90%" rows="6"><%=request("Feedbackdetail")%></textarea>
<%end if%>
</TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD colspan="6" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><span class="style1">处理结果: </span></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD colspan="6" >
<textarea name="FeedBackResult" cols="90%" rows="6"><%if editflag=1 then response.Write keepformat(rs("FeedBackResult")) else response.Write request("FeedBackResult") end if%></textarea>
</TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD colspan="6" ><hr color="#566CDB" align="center" size="1"></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>创建者: </FONT></TD>
<TD align="left" valign="middle" >
<input readonly="true" name="FeedBackCreator" type="text" size="15" maxlength="30" value="<%if editflag=1 then response.Write showoperatorname(rs("FeedBackCreatorID")) else response.Write showoperatorname(session("Session_User")) end if%> ">
<input name="FeedBackCreator_ID" type="hidden" value =" <% if editflag=1 then response.Write showoperatorname(rs("FeedBackCreatorID")) else response.Write(session("Session_User")) end if %>">
</TD>
<TD align="left" valign="middle"><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>创建日期: </FONT></TD>
<TD align="left" valign="middle" colspan="3" ><font color=#ff6600>
<input readonly="true" name="FeedBackCreateDate" type="text" size="15" maxlength="30" value=" <% if editflag=1 then response.Write rs("Feedbackcreatedate") else response.Write date() end if %>">
</font>
</TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings color=#99ccff >v</FONT></FONT><FONT color=#ff6600>最后修改者: </FONT></TD>
<TD align="left" valign="middle" >
<input readonly="true" name="FeedBackRevisor" type="text" size="15" maxlength="30" value=" <% if editflag=1 then if rs("FeedBackRevisorID")<>"" then response.Write showoperatorname(rs("FeedBackRevisorID")) else response.Write showoperatorname(session("session_user")) end if end if%>">
</TD>
<TD align="left" valign="middle"><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings color=#99ccff >v</FONT></FONT><FONT color=#ff6600>最后修改日期: </FONT></TD>
<TD align="left" valign="middle" colspan="3" ><font color=#ff6600>
<input readonly="true" name="FeedBackReviseDate" type="text" size="15" maxlength="30" value="<% if editflag=1 then if rs("FeedBackReviseDate")<>"" then response.Write(rs("FeedBackReviseDate")) else response.Write date() end if end if %>">
是否公开记录:
<input name="FeedBackopenflag" type="checkbox" id="Check_Open" value="1"
<%if editflag=1 then
if rs("feedbackopenflag")=1 then
response.Write("checked")
end if
else
if request("FeedBackopenflag") = "1"then
response.Write("checked")
end if
end if %>
>
</font>
</TD>
</TR>
<TR align=middle bgColor=#99ccff>
<TD height="24" colSpan=6 vAlign=middle></TD>
</TR>
</TBODY>
</TABLE>
</form>
</BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?