global.asa出错

博主开始学习ASP,在使用global.asa时出错,对象标记具有无效的 'mswc.myinfo' ProgID。博主给出了相关代码,包括ASP脚本,希望得到高手的指点。

我开始学习asp,在使用global.asa时出错了:

<object runat=server scope=seesion id=myinfo
progid="mswc.myinfo">
</object>
<script language=vbscript runat=server>
sub application_onstart
 application("today")=date
 application("times")=time
 application("talk")=""
 application("counter")=0
 application("count")=0
end sub
</script>

浏览时出现:Active Server Pages, ASP 0134 (0x80004005)
对象标记具有无效的 'mswc.myinfo' ProgID。
/cjr_steven/global.asa, 第 11 行

对应的asp脚本为

<html>
<head><title>appliction事件</title>
</head>
<body>
<center>
<h1>事件和数据集合的使用</h1>
<hr>
<%
for each var in application.contents
 respose.write"application变量一:"&var
 respose.write",值为"&application.contents(var)
 respose.write"<br>"
next
%>
</body>
</html>

请各位高手指点我一下。谢谢

<%@ Language=VBScript %> <% ' 检查登录状态 If Session("LoggedIn") <> True Then Response.Redirect "login.asp" End If Dim userID, username userID = Session("UserID") username = Session("UserName") Dim message, errorMsg message = "" errorMsg = "" ' 处理评分表单提交 If Request.Form("action") = "submit_rating" Then Dim itemName, score, comment itemName = Trim(Request.Form("item_name")) score = CInt(Request.Form("score")) comment = Trim(Request.Form("comment")) ' 验证输入 If itemName = "" Then errorMsg = "请输入评分项目名称" ElseIf score < 1 Or score > 5 Then errorMsg = "评分分数必须在1-5分之间" Else ' 插入评分记录 Dim sql sql = "INSERT INTO Ratings (UserID, ItemName, Score, Comment, CreateTime) VALUES (" & _ userID & ", '" & Replace(itemName, "'", "''") & "', " & score & ", '" & _ Replace(comment, "'", "''") & "', Now())" On Error Resume Next conn.Execute sql If Err.Number = 0 Then message = "评分提交成功!" Else errorMsg = "提交失败: " & Err.Description End If On Error Goto 0 End If End If ' 获取用户的评分历史 Dim rs, sqlHistory Set rs = Server.CreateObject("ADODB.Recordset") sqlHistory = "SELECT ItemName, Score, Comment, CreateTime FROM Ratings " & _ "WHERE UserID = " & userID & " ORDER BY CreateTime DESC" rs.Open sqlHistory, conn ' 获取统计数据 Dim avgScore, totalRatings avgScore = 0 totalRatings = 0 If Not rs.EOF Then Dim totalScore totalScore = 0 Dim count count = 0 rs.MoveFirst Do While Not rs.EOF totalScore = totalScore + rs("Score") count = count + 1 rs.MoveNext Loop avgScore = Round(totalScore / count, 2) totalRatings = count End If rs.Close Set rs = Nothing %> <!DOCTYPE html> <html lang="zh-CN"> <head> <meta charset="UTF-8"> <meta name="viewport" content="width=device-width, initial-scale=1.0"> <title>在线评分系统 - 评分页面</title> <style> * { margin: 0; padding: 0; box-sizing: border-box; } body { font-family: 'Microsoft YaHei', Arial, sans-serif; background: linear-gradient(135deg, #667eea 0%, #764ba2 100%); min-height: 100vh; padding: 20px; } .container { max-width: 1200px; margin: 0 auto; } .header { background: white; border-radius: 10px; padding: 20px 30px; margin-bottom: 20px; box-shadow: 0 5px 15px rgba(0,0,0,0.1); display: flex; justify-content: space-between; align-items: center; } .header h1 { color: #333; font-size: 24px; } .user-info { display: flex; align-items: center; gap: 15px; } .user-name { color: #667eea; font-weight: 500; } .logout-btn { background: #e74c3c; color: white; padding: 8px 16px; border: none; border-radius: 5px; cursor: pointer; text-decoration: none; font-size: 14px; transition: background 0.3s; } .logout-btn:hover { background: #c0392b; } .content { display: grid; grid-template-columns: 1fr 1fr; gap: 20px; } .card { background: white; border-radius: 10px; padding: 25px; box-shadow: 0 5px 15px rgba(0,0,0,0.1); } .card h2 { color: #333; margin-bottom: 20px; font-size: 20px; border-bottom: 2px solid #f1f2f6; padding-bottom: 10px; } .form-group { margin-bottom: 15px; } .form-group label { display: block; margin-bottom: 5px; color: #333; font-weight: 500; } .form-group input, .form-group textarea, .form-group select { width: 100%; padding: 10px; border: 2px solid #ddd; border-radius: 5px; font-size: 14px; font-family: inherit; } .form-group input:focus, .form-group textarea:focus, .form-group select:focus { outline: none; border-color: #667eea; } .rating-stars { display: flex; gap: 5px; margin-top: 5px; } .star { font-size: 24px; color: #ddd; cursor: pointer; transition: color 0.2s; } .star.active { color: #ffd700; } .submit-btn { width: 100%; padding: 12px; background: linear-gradient(135deg, #667eea 0%, #764ba2 100%); color: white; border: none; border-radius: 5px; font-size: 16px; cursor: pointer; transition: transform 0.3s; } .submit-btn:hover { transform: translateY(-2px); } .stats { display: flex; justify-content: space-around; margin-bottom: 20px; } .stat-item { text-align: center; } .stat-value { font-size: 24px; font-weight: bold; color: #667eea; } .stat-label { font-size: 14px; color: #666; margin-top: 5px; } .message { background: #d4edda; color: #155724; padding: 10px; border-radius: 5px; margin-bottom: 15px; text-align: center; } .error-msg { background: #f8d7da; color: #721c24; padding: 10px; border-radius: 5px; margin-bottom: 15px; text-align: center; } .ratings-list { max-height: 400px; overflow-y: auto; } .rating-item { border: 1px solid #f1f2f6; border-radius: 8px; padding: 15px; margin-bottom: 10px; background: #f8f9fa; } .rating-header { display: flex; justify-content: space-between; align-items: center; margin-bottom: 8px; } .rating-item-name { font-weight: 500; color: #333; } .rating-score { background: #667eea; color: white; padding: 2px 8px; border-radius: 12px; font-size: 12px; } .rating-comment { color: #666; font-size: 14px; margin-bottom: 5px; } .rating-time { font-size: 12px; color: #999; } .no-data { text-align: center; color: #999; padding: 40px; } @media (max-width: 768px) { .content { grid-template-columns: 1fr; } .header { flex-direction: column; gap: 15px; text-align: center; } } </style> </head> <body> <div class="container"> <div class="header"> <h1>在线评分系统</h1> <div class="user-info"> <span class="user-name">欢迎,<%= username %></span> <a href="logout.asp" class="logout-btn">退出登录</a> </div> </div> <div class="content"> <!-- 左侧:评分表单 --> <div class="card"> <h2>提交评分</h2> <% If message <> "" Then %> <div class="message"> <%= message %> </div> <% End If %> <% If errorMsg <> "" Then %> <div class="error-msg"> <%= errorMsg %> </div> <% End If %> <form method="post" action=""> <input type="hidden" name="action" value="submit_rating"> <div class="form-group"> <label for="item_name">评分项目</label> <input type="text" id="item_name" name="item_name" placeholder="请输入要评分的项目名称" required> </div> <div class="form-group"> <label>评分分数</label> <div class="rating-stars" id="ratingStars"> <span class="star" data-score="1">★</span> <span class="star" data-score="2">★</span> <span class="star" data-score="3">★</span> <span class="star" data-score="4">★</span> <span class="star" data-score="5">★</span> </div> <input type="hidden" id="score" name="score" required> </div> <div class="form-group"> <label for="comment">评分备注(可选)</label> <textarea id="comment" name="comment" rows="3" placeholder="请输入您的评分备注"></textarea> </div> <button type="submit" class="submit-btn">提交评分</button> </form> </div> <!-- 右侧:评分历史和统计 --> <div class="card"> <h2>我的评分</h2> <div class="stats"> <div class="stat-item"> <div class="stat-value"><%= totalRatings %></div> <div class="stat-label">总评分数</div> </div> <div class="stat-item"> <div class="stat-value"><%= avgScore %></div> <div class="stat-label">平均分数</div> </div> </div> <div class="ratings-list"> <% rs.Open "SELECT ItemName, Score, Comment, CreateTime FROM Ratings " & _ "WHERE UserID = " & userID & " ORDER BY CreateTime DESC" If rs.EOF Then %> <div class="no-data"> <p>暂无评分记录</p> </div> <% Else %> <% Do While Not rs.EOF %> <div class="rating-item"> <div class="rating-header"> <span class="rating-item-name"><%= rs("ItemName") %></span> <span class="rating-score"><%= rs("Score") %>分</span> </div> <% If rs("Comment") <> "" Then %> <div class="rating-comment"><%= rs("Comment") %></div> <% End If %> <div class="rating-time"><%= FormatDateTime(rs("CreateTime"), 1) %> <%= FormatDateTime(rs("CreateTime"), 4) %></div> </div> <% rs.MoveNext Loop %> <% End If rs.Close Set rs = Nothing %> </div> </div> </div> </div> <script> // 星级评分交互 const stars = document.querySelectorAll('.star'); const scoreInput = document.getElementById('score'); stars.forEach((star, index) => { star.addEventListener('click', () => { const score = index + 1; scoreInput.value = score; stars.forEach((s, i) => { if (i < score) { s.classList.add('active'); } else { s.classList.remove('active'); } }); }); star.addEventListener('mouseenter', () => { const hoverScore = index + 1; stars.forEach((s, i) => { if (i < hoverScore) { s.style.color = '#ffd700'; } else { s.style.color = '#ddd'; } }); }); }); // 重置鼠标悬停效果 document.getElementById('ratingStars').addEventListener('mouseleave', () => { const currentScore = parseInt(scoreInput.value); stars.forEach((s, i) => { if (i < currentScore) { s.style.color = '#ffd700'; } else { s.style.color = '#ddd'; } }); }); </script> </body> </html> <% ' 关闭数据库连接 conn.Close Set conn = Nothing %> 你看看这个代码
11-15
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值