do.asp
来自「个人主页全站v2.0 个人主页全站v2.0 个人主页全站v2.0」· ASP 代码 · 共 150 行
ASP
150 行
<!--#include file="conn.asp" -->
<%
'************************* 乱了心情日记本 V3.0 **********************
'乱了心情日记本 V3.0
'本程序由阿甩（QiHoo）独立编写制作，免费提供给个人用户使用！
'若要作为商业用途，请事先与本人联系！否则将追究责任！
'本程序图片均来自网络，若有侵权请与本人联系，将尽快解决！
'如果你有创业想法，并有兴趣合作的话,请加我QQ 4148987.
'有问题请EMAIL至：qihoo@mood8.com qihoo520@163.com 或者加QQ 4148987
'请关注：www.mood8.com以得到技术支持！
'*********************************************************************
if session("admin")<>"1" then
Response.Write("<center><font color=red>你没有登陆！请〈a href=login.asp>登陆</a>！或者<a href=index.asp>返回首页</a>！</font></center>")
response.End()
end if
%>
<%
id=Trim(Request.QueryString("id"))
action=Trim(Request.QueryString("action"))
sql="select * from dairy where id="&id
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
if action="del" then
rs.delete
response.Redirect("index.asp")
end if
if action="edit" then
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="阿甩,乱了心情,QiHoo,日记本">
<title>乱了心情日记本</title>
<script language="JavaScript">
function CheckForm()
{
if (document.writeform.title.value.length == 0) {
alert("请填写标题.");
document.writeform.title.focus();
return false;
}
if (document.writeform.tianqi[0].checked == false&&document.writeform.tianqi[1].checked == false&&document.writeform.tianqi[2].checked == false&&document.writeform.tianqi[3].checked == false&&document.writeform.tianqi[4].checked == false&&document.writeform.tianqi[5].checked == false) {
alert("请选择天气.");
return false;
}
if (document.writeform.content.value.length == 0) {
alert("请输入日记内容.");
document.writeform.content.focus();
return false;
}
return true;
}
</script>
<link href="diary.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="503" border="0" align="center" cellpadding="0" cellspacing="0" background="img/bg.gif">
<tr>
<td width="505" height="350" align="center" bordercolor="#FFFF99"><img src="img/bg2.jpg" width="505" height="375"></td>
</tr>
<tr>
<td height="350" align="center" valign="top" bordercolor="#FFFF99"><br>
<font color="#86540c">更改日记</font><br>
<hr width="430" size="1">
<table width="90%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFCC">
<form language="javascript" name="writeform" method="post" action="ok.asp" onSubmit="return CheckForm()">
<tr>
<td height="16">标题： </td>
<td colspan="6"> <input name="title" type="text" id="title3" value="<%=rs("title")%>" size="20"></td>
</tr>
<tr>
<td height="5" valign="top">天气： </td>
<td width="65" height="5" valign="top"> <input name="tianqi" type="radio" title="今天天气晴" value="images/1.gif" <% if rs("tianqi")="images/1.gif" then Response.Write("checked")%>>
<img src="images/1.gif" alt="今天天气晴" width="23" height="24" align="absmiddle">
</td>
<td width="68" valign="top"> <input title="阴啦，有云" type="radio" name="tianqi" value="images/2.gif" <% if rs("tianqi")="images/2.gif" then Response.Write("checked")%>>
<img src="images/2.gif" alt="阴啦，有云" width="23" height="24" align="absmiddle"></td>
<td width="57" valign="top"> <input title="雨一直下" type="radio" name="tianqi" value="images/3.gif" <% if rs("tianqi")="images/3.gif" then Response.Write("checked")%>>
<img src="images/3.gif" alt="雨一直下" width="23" height="24" align="absmiddle"></td>
<td width="58" valign="top"> <input title="打雷咯……" type="radio" name="tianqi" value="images/4.gif" <% if rs("tianqi")="images/4.gif" then Response.Write("checked")%>>
<img src="images/4.gif" alt="打雷咯……" width="22" height="21" align="absmiddle"></td>
<td width="53" valign="top"> <input title="星星在眨眼睛呢" type="radio" name="tianqi" value="images/5.gif" <% if rs("tianqi")="images/5.gif" then Response.Write("checked")%>>
<img src="images/5.gif" alt="星星在眨眼睛呢" width="23" height="24" align="absmiddle">
</td>
<td width="101" valign="top"> <input title="看，月亮弯弯" type="radio" name="tianqi" value="images/6.gif" <% if rs("tianqi")="images/6.gif" then Response.Write("checked")%>>
<img src="images/6.gif" alt="看，月亮弯弯" width="23" height="24" align="absmiddle"></td>
</tr>
<tr>
<td height="6" valign="top">心情：</td>
<td valign="top"> <input type="radio" name="xq" value="xq/f.gif" <% if rs("xq")="xq/f.gif" then Response.Write("checked")%>>
<img src="xq/f.gif" width="19" height="19" align="absmiddle"> </td>
<td valign="top"><input type="radio" name="xq" value="xq/f1.gif" <% if rs("xq")="xq/f1.gif" then Response.Write("checked")%>>
<img src="xq/f1.gif" width="19" height="19" align="absmiddle"> </td>
<td valign="top"><input type="radio" name="xq" value="xq/f2.gif" <% if rs("xq")="xq/f2.gif" then Response.Write("checked")%>>
<img src="xq/f2.gif" width="19" height="19" align="absmiddle"></td>
<td valign="top"><input type="radio" name="xq" value="xq/f3.gif" <% if rs("xq")="xq/f3.gif" then Response.Write("checked")%>>
<img src="xq/f3.gif" width="19" height="19" align="absmiddle"></td>
<td valign="top"><input type="radio" name="xq" value="xq/f4.gif" <% if rs("xq")="xq/f4.gif" then Response.Write("checked")%>>
<img src="xq/f4.gif" width="19" height="19" align="absmiddle"> </td>
<td valign="top"><input type="radio" name="xq" value="xq/f5.gif">
<img src="xq/f5.gif" width="19" height="19" align="absmiddle"></td>
</tr>
<tr>
<td colspan="7">
<!--#include file="getubb.asp" -->
<script language="JavaScript" src="code.js"></script>
</td>
</tr>
<tr>
<td height="47" valign="top">内容： </td>
<td height="47" colspan="6" valign="top"><textarea id="Content" name="content" cols="50" rows="10"><%content=rs("content")
response.write content
%></textarea></td>
</tr>
<tr align="center">
<td width="503" style="Word-Wrap:break-word" height="20" colspan="7" valign="top">
<%dim ii
for i=1 to 28
response.write "<img src="""&"emot/em"&i&".gif"&""" border=0 onclick=""insertsmilie('[em"&i&"]')"" style=""CURSOR: hand""> "
next%>
</td>
</tr>
<tr>
<td colspan="7" align="center"><br> <input type="submit" name="Submit" value="写好了">
<input type="reset" name="Submit2" value="重新来"> </td>
</tr>
</form>
</table>
<br>
<!--#include file="blinkinc.asp" -->
<br>
<br>
<!--#include file="bottom.asp" -->
</td>
</tr> </table>
</body>
</html>
<%
end if
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?