lookuser2.asp

来自「本学期要实讯」· ASP 代码 · 共 44 行

<!--#include file="odbc_connection.asp"-->
<style type="text/css">
<!--
.style1 {
	font-size: 12px;
	color: #000000;
}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>

<table width="522" height="275" border="0" align="left" cellpadding="0" cellspacing="0">
  <tr>
    <td width="522" align="center" valign="middle">
<%dim user
user=session("user")%>
<%dim rsa,sqla
sqlb="select name from cominfo where user='"&user&"'" 
set rsb=db.execute(sqlb)
comname=rsb("name")
userid=Request("userid")
username=Request("username")
commessage=Request("commessage")
dim rs,sql
sql="insert into message(userid,comid,username,comname,commessage,com_date) values('"&userid&"','"&user&"','"&username&"','"&comname&"','"&commessage&"',#"&date()&"#) "
db.execute(sql) %>

<%if Request("commessage")<>""  then %>
	<table width="267" height="38" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="267" height="38" align="center"><span class="style1">你的信息已经发送成功！谢谢你的参与！</span></td>
      </tr>
    </table>
	  <%end if%>
</td>
  </tr>
</table>