📄 lyout.asp
字号:
<!--#include file="filetou.asp"-->
<!--#include file="fun.asp"-->
<%
USER=request("USER")
TJ=REPLACE(USER," ","")
USEr=""
IF tj<>"" THEN
tj=replace(tj,","," or id=")
sql="SELECT user FROM USER1 where id="&tj&" order by 身份,所属网点,USER"
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 1
if not rs.eof then
user=rs("user")
rs.movenext
end if
do while not rs.eof
USEr=USEr&","&RS("USER")
rs.movenext
loop
RS.CLOSE
END IF
LFUSER=request("LFUSER")
IF LFUSER<>"" THEN USER=LFUSER
b1=request.form("b1")
if b1="提交" THEN
IF SESSION("USERNAME")="" THEN
response.redirect "../EVER.ASP?LR=连接超时,请重新登录"
END IF
T1=request.form("T1")
T2=request.form("T2")
T2=IP2N(T2)
T3=request.form("T3")
T3=IP2N(T3)
if t3=0 then t3=t2
T4=request.form("T4")
IF t4="" THEN
response.redirect "../EVER.ASP?LR=主题不能为空"
END IF
T5=request.form("T5")
S1=request.form("S1")
TJ1=REPLACE(T1," ","")
tj=replace(tj1,",","' or USER='")
S1=REPLACE(S1,CHR(13),"<BR>"&CHR(13))
if t2=0 and t1="" then
SET CONN=NOTHING
response.redirect "../EVER.ASP?LR=没有找到你要发送留言的目标"
end if
if t2=0 and t1<>"" then
sql="SELECT * FROM USER1 where user='"&tj&"' "
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 3
if rs.eof then
RS.CLOSE
SET CONN=NOTHING
response.redirect "../EVER.ASP?LR=没有找到你要发送留言的目标"
end if
end if
' Response.Write t2&"!!<br>"
sql=" INSERT INTO LYLIST(收信者,起始IP,结束IP,主题,内容,附件,发信者) "
SQL=SQL&"VALUES('"&tj1&"','"&t2&"','"&t3&"','"&t4&"','"&s1&"','"&t5&"','"&session("username")&"')"
' Response.Write SQL
conn.execute sql,0,-1
SET CONN=NOTHING
if lenb(session("userfileupload"))>5 and t5<>"" then
call s2f(t5,session("userfileupload"))
end if
session("userfileupload")=""
response.redirect "../EVER.ASP?LR=发送成功&urla=user/lyout.asp"
END IF
SET CONN=NOTHING
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<Link Rel="STYLESHEET" Href="../../index.CSS" Type="text/css">
<title>发送留言</title>
</head>
<body bgcolor="#99CCFF">
<div align="center">
<center>
<table border="1" width="100%" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bgcolor="#D4D0C8">
<tr>
<td width="100%" align="center">
<table border="0" width="100%" bgcolor="#000080">
<tr>
<td width="25%"> <font color="#FFFFFF"> 发送留言</font></td>
<td width="25%"><a href="myly.asp"><font color="#FFFFFF">我的留言</font></a></td>
<td width="50%">
<p align="right"><a href="../../index.asp"><font color="#FFFFFF">返回</font></a>
</td>
</tr>
</table><form method="POST" name="UP">
<table border="0" width="712">
<tr>
<td width="63">收信人</td>
<td width="635" colspan="2">
<p><input type="text" name="T1" size="80" value="<%=USER%>"></p>
</td>
</tr> <%IF SESSION("USERDSF") <>"用户" THEN%>
<tr>
<td width="63">发到IP段</td>
<td width="635" colspan="2">起始<input type="text" name="T2" size="32">结束<input type="text" name="T3" size="40"></td>
</tr> <%end if%>
<tr>
<td width="63">留言主题:</td>
<td width="635" colspan="2"><input type="text" name="T4" size="80"></td>
</tr>
<tr>
<td width="63">留言内容:</td>
<td width="635" colspan="2"><textarea rows="11" name="S1" cols="79"></textarea></td>
</tr>
<tr>
<td width="63">附件:</td>
<td width="269"><input type="text" name="T5" size="37" readOnly></td>
<td width="360">
<IFRAME name=fo frameBorder=0 height=24 marginHeight=1 marginWidth=1 scrolling=no
width=100% BORDERCOLOR="#CCCCFF" src="fileupload.asp"></iframe>
</td>
</tr>
<tr>
<td width="63"></td>
<td width="635" colspan="2"><input type="submit" value="提交" name="B1">
</td>
</tr>
</table>
</form>
<br>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -