📄 writeword.asp

📁 西风班级信息管理系统 v1.1的源码
💻 ASP
字号:
<!--#include file="inc/db.inc"-->
<!--#include file="inc/func.INC"-->
<%
userid=session("myuserid")
password=session("mypwd")
if isuser(userid,password)=0 then
%>
<script>
alert("你还没有登录，无权进入！");
window.close();
</script>
<%
else
userid=session("myuserid")
set rs=Server.CreateObject ("ADODB.RECORDSET")
sql="select truename from [txluser] where userid='"&userid&"'"
rs.open sql,conn,1,1
%>
<html>
<head>
<title>填写赠言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="jscs/css.CSS" type=text/css rel=stylesheet>
</head>
<script language="javascript">
//去除字符串前空格
function JHshLTrim(sString)
{ 
var sStr,i,iStart,sResult = "";
sStr = sString.split("");
iStart = -1 ;
for (i = 0 ; i < sStr.length ; i++)
{
if (sStr[i] != " ") 
{
iStart = i;
break;
}
}
if (iStart == -1) { return "" ;}    //表示sString中的所有字符均是空格,则返回空串
else { return sString.substring(iStart) ;}
}

//去除字符串后空格
function JHshRTrim(sString)
{ 
var sStr,i,sResult = "",sTemp = "" ;

// if (sString.length == 0) { return "" ;} // 参数sString是空串

sStr = sString.split("");
for (i = sStr.length - 1 ; i >= 0 ; i --)  // 将字符串进行倒序
{ 
sResult = sResult + sStr[i]; 
}
sTemp = JHshLTrim(sResult) ; // 进行字符串前空格截除

if (sTemp == "") { return "" ; }

sStr = sTemp.split("");
sResult = "" ;
for (i = sStr.length - 1 ; i >= 0 ; i--) // 将经处理后的字符串再进行倒序
{
sResult = sResult + sStr[i];
}
return sResult ;
}

//去除字符串前后空格
function JHshTrim(sString)
{
var strTmp   

strTmp = JHshRTrim(JHshLTrim(sString))  

return strTmp  
} 
function form1_onsubmit() {
if (JHshRTrim(document.form1.title.value)=="")
	{
	  alert("不能没有主题！")
	  document.form1.title.focus()
	  return false
	 }
if (JHshRTrim(document.form1.content.value)=="")
	{
	  alert("不能没有内容！")
	  document.form1.content.focus()
	  return false
	 }
}
</script>
<body topMargin=0 leftmargin=0 onUnload="opener.location.reload()"> 
<table width="400" height="300" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#8C8C8B">
  <tr>
    <td> 
      <table width="400" height="300" border="0" cellpadding="0" cellspacing="0" bgcolor="#FCE8FC">
        <form method="POST" name="form1" language="javascript" onSubmit="return form1_onsubmit()" action="writepost.asp">
          <tr valign="top"> 
            <td height="48" colspan="2"><div align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src="IMAGES/mywrite.gif" width="180" height="52"></div></td>
          </tr>
          <tr> 
            <td width="80">&nbsp;&nbsp;写赠言者：</td>
            <td width="320">&nbsp; <%=rs("truename")%><input type=hidden value="<%=rs("truename")%>" name="writer"></td>
          </tr>
		  <%
		set rs=nothing
		set rsm=Server.CreateObject ("ADODB.RECORDSET")
		sql="select userid,truename from [txluser] order by id desc"
		rsm.open sql,conn,1,1
		%>
          <tr> 
            <td>&nbsp;&nbsp;收赠言者：</td>
            <td>&nbsp; <select name="geter" id="geter">
			<%while not rsm.eof
			%>
			<option value="<%=rsm("userid")%>">&nbsp;<%=rsm("truename")%>&nbsp;</option>
			<%rsm.movenext
			wend
			set rsm=nothing
			%>
              </select></td>
          </tr>
          <tr> 
            <td>&nbsp;&nbsp;赠言主题：</td>
            <td>&nbsp; <input name="title" type="text" id="title"></td>
          </tr>
          <tr> 
            <td valign="middle">&nbsp;&nbsp;赠言内容：</td>
            <td valign="middle">&nbsp; <textarea  style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; FONT-SIZE: 9pt; OVERFLOW: auto; BORDER-LEFT: #000000 1px solid; WIDTH: 280px; BORDER-BOTTOM: #000000 1px solid; BACKGROUND-COLOR: #EFEFEF" name=content rows=8  cols="25"></textarea></td>
          </tr>
          <tr> 
            <td colspan="2"> <div align="center"> 
                <input type="submit"  value="写好了"><input type=hidden name="flag" value="reg">
                &nbsp;&nbsp; 
                <input name="submit" type="reset"  value="重新写">
              </div></td>
          </tr>
        </form>
      </table></td>
  </tr>
</table>
</body>
</html>
<%end if%>
⌨️ 快捷键说明

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