موصى به: حل الأرقام السالبة في ترحيل مجموعة سجلات ASP فيما يتعلق بظاهرة الأرقام السلبية أثناء تصفح مجموعة السجلات ، لم يتم حل الكثير من الناس. تظهر الأرقام السلبية مرتبطة بشكل أساسي بنوع المؤشر. (لراحة المثال ، لنفترض أن هناك بالفعل ملف conn.asp يربط قاعدة البيانات وتضمينه) الآن إعطاء مثال ، الرمز يشبه
برنامج التقديم عبر الإنترنت SDCMS
الرمز كما يلي
<!-#تضمين ملف = inc/conn.asp->
<link href = style.css rel = typesheet type = text/css>
<نوع النمط = text/css>
<!-
.style1 {color: #ff0000}
الجسم ، td ، th {
حجم الخط: 12 بكسل ؛
}
->
</style>
<لغة البرنامج النصي = javaScript>
وظيفة isfull ()
{
var title = document.myform.title.value ؛
var content = document.myform.content.value ؛
var classid = document.myform.classid.value ؛
var upution = document.myform.author.value ؛
var code = document.myform.code.value ؛
إذا (العنوان ==)
{
تنبيه (ماذا عن العنوان؟) ؛
document.myform.title.focus () ؛
العودة كاذبة
}
إذا (المحتوى ==)
{
تنبيه (اكتب بعض المحتوى) ؛
document.myform.content.focus () ؛
العودة كاذبة
}
إذا (classid ==)
{
تنبيه (اختيار تصنيف ...) ؛
document.myform.classid.focus () ؛
العودة كاذبة
}
إذا (المؤلف ==)
{
تنبيه (اترك اسمك) ؛
document.myform.author.focus () ؛
العودة كاذبة
}
إذا (الرمز ==)
{
في حالة تأهب (للأسف ، لا تنس أن تجلب التحقق من الملايو) ؛
document.myform.code.focus () ؛
العودة كاذبة
}
إذا (classid ==)
{
تنبيه (اختيار تصنيف ...) ؛
document.myform.classid.focus () ؛
}
العودة صحيح.
}
</script>
<title> إرسال النكات عبر الإنترنت </title>
</head>
<عرض الجدول = 777 الحدود = 0 محاذاة = مركزية cellpading = 0 cellpacing = 0 bgColor =#ffffff>
<tr>
<عرض TD = 567 Valign = TOP>
<عرض الجدول = 100 ٪ الحدود = 0 cellpacing = 0>
<tr>
<td> <a href = http: //joke.yingzi001.cn> العودة إلى الصفحة الرئيسية </a>
<عرض الجدول = 100 ٪ الحدود = 0 cellpacing = 0 cellpadding = 0>
<form action = add.asp؟ Action = Add Method = post name = myform id = myform OnSubmit = return isfull () ؛>
<tr>
<td align = center>
<٪ إذا طلب (إجراء) = ثم ٪>
<عرض الجدول = 100 ٪ الحدود = 0 cellpadding = 5 cellpacing = 0>
<tr>
<td width = 20 ٪ align = right> العنوان </td>
<عرض TD = 80 ٪>
<اسم الإدخال = نوع العنوان = معرف النص = حجم WP = 35>
* 30 كلمة مناسبة^-^</td>
</r>
<tr>
<td width = 20 ٪ محاذاة = يمين> المحتوى </td>
<td>
<textarea name = content cols = 60 ids = 10 id = content> </textarea> </td>
</r>
<tr>
<td width = 20 ٪ align = right> الفئة </td>
<td>
<اسم الإدخال = النوع classid = معرف النص = clashid size = 3 readOnly = readOnly>
<٪
تعيين rs_s = server.createBject (adodb.recordset)
RS_S.Open SELECT * من SD_CLASS ORDER BY ID ، CONN ، 1،1
٪>
<حدد name = select2 onChange = (document.myform.classid.value = this.options [this.selectedIndex] .value)> <select
<٪
بينما لا rs_s.eof
٪>
<value Option = <٪ = rs_s (id) ٪ >> <٪ = rs_s (title) ٪> </teptor>
<٪
rs_s.movenext
ويند
rs_s.close
تعيين RS_S = لا شيء
٪>
</select>
* التصنيف يتوافق تلقائيًا مع الأرقام التسلسلية </td>
</r>
</table>
<عرض الجدول = 100 ٪ الحدود = 0 cellpadding = 5 cellpacing = 1>
<tr>
<td width = 20 ٪ align = right bgcolor =#ffffff> المؤلف </td>
<td width = 80 ٪ bgColor =#ffffff> <type type = uptor name = efurner/>
- يمكن أن يكون اسم مستعار أو عنوان موقع الويب الخاص بك </td>
</r>
<tr>
<td width = 20 ٪ align = right bgcolor =#ffffff> رمز التحقق </td>
<td> <input name = 'code' type = 'text' size = '6' maxLength = 4>
<img src = getCode.asp alt = لا يمكن رؤية ذلك بشكل واضح؟
</r>
<tr>
<td width = 20 ٪ bgColor =#ffffff> & nbsp ؛ </td>
<td width = 80 ٪ bgcolor =#ffffff> <type type = إرسال اسم = إرسال 2
</r>
</table>
<٪ نهاية إذا ٪>
</td>
</r>
</form>
</table>
</td>
</r>
</table> </td>
</r>
</table>
</body>
</html>
<٪
إذا طلب (إجراء) = إضافة ثم
إذا كانت isempty (جلسة (getCode)) أو الجلسة (getCode) <> ucase (request.form (رمز)) ثم
repress.write <script> window.alert ('أين هو حصان التحقق؟ سوف يأكل العشب؟ ينص هذا الموقع على أنه لا يمكنك تقديمه بدون حصان ...') ؛ </script>
استجابة. write <script> location.href = 'add.asp' </script>
استجابة
آخر
عنوان قاتم ، المحتوى ، المؤلف ، ClassID
العنوان = trim (request.form (title))
content = trim (request.form (content))
المؤلف = trim (request.form (المؤلف))
ClassId = trim (request.form (classid))
تعيين rs = server.createBject (adodb.recordset)
SQL = SELECT * من SD_INFO
Rs.Open SQL ، Conn ، 1،3
Rs.Addnew
استدعاء SaveData_Dlinfo ()
Rs.update
Rs.close
تعيين روبية = لا شيء
استدعاء CloseConn ()
Response.write <Script> ALERT ("حسنًا! شكرًا لك على انتباهك! سيتم عرضه بعد المراجعة!) </script>
استجابة. add.asp
إنهاء إذا
SUB SAVEDATA_DLINFO
RS (العنوان) = العنوان
RS (المحتوى) = المحتوى
روبية (مؤلف) = مؤلف
RS (ClassId) = ClassId
RS (ADDDATE) = الآن
نهاية الفرعية
إنهاء إذا
٪>
مشاركة: مثيل ASP البرنامج التعليمي: كائن fileystemobject هل يوجد الملف المحدد بواسطة كائن FileSystemObject؟ يوضح هذا المثال كيفية إنشاء كائن fileSystemObject أولاً ، ثم استخدم طريقة FileExists لاكتشاف ما إذا كان هناك ملف. رمز هذا المثال هو كما يلي: ما يلي هو المحتوى المشار إليه: HTML Body ٪ SET FS = SERVER.CREATEBJECT