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

📄 moddelviewhelp.asp

📁 asp图书馆管理系统的一个源代码
💻 ASP
字号:
<!--#include file="globe/DataConnect.asp"-->
<%
ID=Request.QueryString("ID")

 set rs=server.createobject("adodb.recordset")
 sql="select * from Help where ID="&ID&""
 rs.open sql,cnn,1,1
 Title=rs("Title")
 Content=rs("Content")
 rs.close 
 Set rs=Nothing:Set sql=Nothing
 %> 
 
 
<html>
<head>
<title>ModelviewHelp</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL="stylesheet" TYPE="text/css" HREF="globe/style.css">


<script language="vbscript">
function form1_onsubmit()
 dim errormessage,error
 dim Title,Content
 dim error1,error2
 Title=trim(cstr(form1.Title.value))
 Content=trim(cstr(form1.Content.value))

 error=1
 if Title="" then
            			 error1="<--管理员,空的标题,谁看得懂?-->"
						  error=0
						  end if

 if Content="" then
           		 error2="<--管理员,空的内容,谁看得懂?-->"
			 error=0
			end if		

if error=0 then
           if error1<>"" then
		                   errormessage=error1&chr(13)&"   "
						   end if
		   if error2<>"" then
		                   errormessage=errormessage&error2&chr(13)&"   "
						   end if	
		 		   					   			   				   		   
						   alert chr(13)&"错误:"&chr(13)&"   "&errormessage
						   form1_onsubmit=false			
						   else
						   form1_onsubmit=true
						   end if				 
end function			
</script>


</head>
<body bgcolor="#ccddff">
<%'error handler
Dim error
error=request.querystring("error")
if error<>"" then
response.write error&"<br>"
end if
%>


<form name="form1" method="post" action="DoModViewHelp.asp">

<input type="hidden" name="ID" value="<%=ID%>">
<div id="Layer1" style="position:absolute; left:31px; top:20px; width:550px; height:220px; z-index:1"> 
  <table width="100%" border="1" height="220" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellspacing="0">
 
 <TR><td height="35" colspan="4">
<P align="center"><font color=#FF0000'>不是管理员最好不要来这里!很危险!请点击</font><A href='help.asp'>
<返回></a></P>
</TD></tr>
   
    <tr> 
      <td width="14%" height="34">&nbsp;<font color="#339933"> 标 题</font></td>
      <td height="34" colspan="3"> 
      <input type="text" name="Title" value="<%=Title%>" size="63">
        
      </td>
    </tr>
    <tr> 
      <td width="14%" height="8"> 
        <p> <font color="#339933">  内</font></p>
        <p>&nbsp;</p>
        <p><font color="#339933">  容</font></p>
      </td>
      <td height="10" colspan="3"> 
        <textarea name="Content" rows="11" cols="62"><%=Content%></textarea>
      </td>
    </tr>
  
  </table>
</div>


<div id="Layer2" style="position:absolute; left:153px; top:285px; width:270px; height:37px; z-index:2"> 
     
  <input type="submit" name="Submit" value="修  改">
         
  <input type="reset" name="submit" value="复  原">
 
</div>
</form>

<div id='layer1' style='position:absolute;width:555px;top:320px;left:31px'>
<TABLE bgColor=#ffffff border=1 borderColor=#000000 borderColorDark=#ffffff borderColorLight=#000000 cellSpacing=0>
<TBODY><TR><TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff   borderColorLight=#000000 height=25  width=555>
<div align="left"><font color="#FF0000">删除该条例</font></div>    
</TD></tr>
<TR><TD bgColor=#ccddff borderColor=#000000 borderColorDark=#ffffff   borderColorLight=#000000 height=25  width=555>
<P align="center"><A href='DoDelViewHelp.asp?ID=<%=ID%>'>
<确定删除></a></P>
</TD></tr>
</tbody></table></div>


<!--#include file="globe/DataClose.asp"-->
</body>
</html>

⌨️ 快捷键说明

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