多媒体编程

开发平台：
ASP/ASPX

review.asp：源码内容
							<!--#include file="db/user.asp" -->
<!--#include file="config.asp" -->
<!--#include file="function.asp" -->
<%iperr()%>
<%
if boolReview_1=False then
	response.write("对不起,暂时无法对影片进行投票和评论")
	response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=strHomepage_1%></title>
<style type="text/css">
<!--
body, p, td, tr, input, textarea, select {cursor:default; font-size:9pt; color:#006D91}
a:link {text-decoration:none; color:#006D91}
a:visited {text-decoration:none; color:#006D91}
a:active {text-decoration:none; color:#006D91}
a:hover {text-decoration:none; color:#888888}
input, textarea, select {border-style:solid; border-width:1; cursor:default; color:#006D91; background-color:#EFEFEF}
body {
scrollbar-face-color:#E1E1E1;
scrollbar-highlight-color:#E1E1E1;
scrollbar-shadow-color:#8C8C8D;
scrollbar-arrow-color:#8C8C8D;
scrollbar-base-color:#EFEFEF;
scrollbar-track-color:#EFEFEF;
scrollbar-darkshadow-color:#EFEFEF;
}
textarea {
scrollbar-face-color:#E1E1E1;
scrollbar-highlight-color:#E1E1E1;
scrollbar-shadow-color:#8C8C8D;
scrollbar-arrow-color:#8C8C8D;
scrollbar-base-color:#EFEFEF;
scrollbar-track-color:#EFEFEF;
scrollbar-darkshadow-color:#EFEFEF;
}
.shadow {FILTER: dropshadow(color=#444444,offx=1,offy=1,positive=1)}
.input {
	margin: 1px;
	padding: 1px;
	border: 1px solid #000000;
}
.table {
	margin: 1px;
	padding: 1px;
	border: 1px solid #000000;
}
.input2 {
	border-bottom-width: 1px;
	border-bottom-style: solid;
	border-bottom-color: #000000;
}
.body {
	font-size: 9px;
	font-style: normal;
	font-weight: normal;
	font-variant: normal;
}
-->
</style>
<base onmouseover="window.status='<%=strEstate_1%>';return true">
</head>
<body bgcolor="#E7E7E7">
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#000000">
<%
if request.QueryString("post")="save" then
	if request.form("strView")="" then
		strErr=strErr+"<li>请填写完整评论内容"
	else
		strView=request.form("strView")
	end if
	numAccess=cint(request.form("numAccess"))
	if request.form("strEmail")<>"" then
		if IsValidEmail(request.form("strEmail"))=False then
			strErr=strErr+"<li>E-MAIL可以不必填写，但若填写了E-MAIL请提供真实地址"
		else
			strEmail=request.form("strEmail")
		end if
	else
		strEmail=""
	end if
	if request.form("numQQ")<>"" then
		if IsNumeric(request.form("numQQ"))=False then
			strErr=strErr+"<li>QQ可以不必填写，但若填写了QQ请提供真实号码"
		else
			numQQ=request.form("numQQ")
		end if
	else
		numQQ="0"
	end if
	if request.cookies("nicedown")("admin")<>"" then
		strName=request.cookies("nicedown")("admin")
	else
		strName="游客"
	end if
	dateRtime=now()
	numIP=Request.ServerVariables("Remote_Addr")
	if strErr<>"" then
		response.write(strErr)
		response.end
	else
	sql="insert into review(numSoftid,strName,strEmail,numQQ,strView,dateRtime,numAccess,numIP) values("&request.QueryString("id")&",'"&strName&"','"&strEmail&"',"&numQQ&",'"&strView&"','"&dateRtime&"',"&numAccess&",'"&numIP&"')"
	conn.execute sql
		response.write("操作完成，2秒钟后返回"&_
						"<META HTTP-EQUIV=REFRESH CONTENT='2;URL=review.asp?id="&request.QueryString("id")&"'>")
		response.end
	end if
end if
%>
  <form name="form1" method="post" action="review.asp?id=<%=request.QueryString("id")%>&post=save">
    <tr> 
      <td bgcolor="#FFFFFF">影片评分:  
        <input type="radio" name="numAccess" value="1" checked>
        1 <input type="radio" name="numAccess" value="2"> 
        2 <input type="radio" name="numAccess" value="3"> 
        3 <input type="radio" name="numAccess" value="4"> 
        4 <input type="radio" name="numAccess" value="5"> 
        5<br> 
        简短评论:  
        <input name="strView" type="text" size="50" maxlength="50">
        (**50字符以内)<br> 电子邮件:  
        <input name="strEmail" type="text" size="30">
        <br>
        OICQ号码:  
        <input name="numQQ" type="text" size="12" maxlength="12"> <p align="center"> 
          <input type="submit" name="Submit" value="提交">
        </p></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td><div align="center">已发表的评论</div></td>
          </tr>
          <tr> 
            <td><hr align="center" width="50%" size="1" noshade></td>
          </tr>
          <tr> 
            <td><%
if request.QueryString("page")<>"" then
	absPageNum=request.QueryString("page")
else
	absPageNum=1
end if
numLong=5
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from review where numSoftid="&request.QueryString("id")&" order by dateRtime desc"
rs.open sql,conn,1,1
rs.PageSize = numLong
Tol = rs.PageCount
If Not(rs.EOF) Then
	rs.AbsolutePage = absPageNum
End If
if rs.eof then
	response.write("<li>还没有评论，等待你的添加哦^_^")
else
	for i= 1 to rs.PageSize
		strName=rs("strName")
		strEmail=rs("strEmail")
		numQQ=rs("numQQ")
		strView=rs("strView")
		dateRtime=rs("dateRtime")
		numAccess=rs("numAccess")
		if strEmail<>"" then
			strEmail="<a href='mailto:"&strEmail&"'><img src='images/email1.gif' border=0 title='给 "&strName&" 发送邮件'></a>&nbsp;"
		end if
		if numQQ<>"0" then
			numQQ="<a href='http://search.tencent.com/cgi-bin/friend/user_show_info?ln="&numQQ&"' target=_blank><img src='images/oicq.gif' border=0 title='"&numQQ&"'></a>&nbsp;"
		else
			numQQ=""
		end if
		response.write("<li>["&numAccess&"]"&strView&"&nbsp;"&strEmail&numQQ&"<img src='images/report.gif' title='"&dateRtime&"'>")
		rs.movenext
		if rs.eof then
			exit for
		end if
	next
end if
rs.close
set rs=nothing%></td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"><div align="right">当前页:[<%=absPageNum%>] 页数:<< <%
for i= 1 to Tol
	response.write("<a href='review.asp?id="&request.QueryString("id")&"&page="&i&"'>"&i&"</a>&nbsp;")
next
response.write("| <a href='review.asp?id="&request.QueryString("id")&"'>刷 新</a>")
%></div></td>
    </tr>
  </form>
</table>
</body>

						